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PREFACE 


This publication is the reterence manual for APL\3000, a high-level 
programming language developed for use on> the HP 3000 Series II 
Computer System. 

Because of the unique structure of APL, this manual differs from most 
reference manuals, in that function descriptions are not arranged in 
alphabetical order, and more comprehensive descriptions are provided 
than would be necessary for better known languages such as FORTRAN or 
COBOL, Examples of all functions, however, are contained in 
alphabetical order in Appendix B. 

Althougn it is possible to learn how to program in APLV3000 using this 
manual, such is not its main purpose, and therefore this manual 
assumes a knowledge of APL by the user. Further, because APL is an 
advanced computer language which has many applications in mathematical 
problem solving, it is assumed that readers have had mathematics 
training. For example, such terms as "non-singular arrays," "linearly 
independent columns," and so forth are introduced but not explained? 
and the reader is expected to be familiar with linear equations, 
logarithms, and Pythagorean and hyperbolic functions. 

Other publications which should be available for reference are: 

MPE intrinsics Reference Manual - Part Number 30000-90010 
MPE Commands Reference Manual - Part Number 30000-90009 
Console Operator's Guide - Part Number 30000-90013 

This manual is divided into twelve sections, eight appendices, and a 
cross-reference index as follows; 

Section I - introduction to APLS3000 

Section II - Elements of APLS30Q0 

Section III - APLV3000 Primitive Functions and Operators 

Section IV - System Functions and System Variables 

Section V - Shared Variables 

Section VI - APLN3000 File System 

Section VII - Function Definition 

Section VIII - APL\3000 Editor 

Section IX - APLGOL 

Section X - Function Execution 
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Section XI 
Section xu 
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Index 


System Commands 

Error Messages 

APIA300 0 Character Set 
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APLN3000 System Commands 

AP1A3000 System Variables 
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APLGQL Statement Syntax 

System supplied Utility Shared Variables 
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CONVENTIONS USED IN THIS MANUAL 


NOTATION DESCRIPTION 

[ ] An element inside brackets is optional. Several elements stacked inside a pair of brackets means 

the user may select any one or none of these elements. 


Example: 



user may select A or B or neither 


When several elements are stacked within braces the user must select one of these elements. 


Example: user must select A or B or C. 

C 



A horizontal ellipsis indicates that a previous bracketed element may be repeated, or that elements 
have been omitted. 
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SECTION 


APIA3Q00 Is a high-level programming language based on APL CA 
Programming Language) as developed by Dr, Kenneth Iverson, 

Significant features of APLN3000 are as follows: 

* APLN3000 is an interactive, terminal-oriented, problem solving 
language, 

* APLN3000 provides a large set of functions and operators; thus 
programs may be written quickly and concisely and can be 
maintained with less effort than most high-level language 
programs, 

* Intermediate code is compiled for each statement when it is first 
executed. Associated with the statement are binding parameters 
such as data types and array shapes. If these binding parameters 
are unchanged on subsequent executions, the statement need not be 
re-analyzed nor the Intermediate code recompiled, 

* A virtual memory scheme is used which allows extremely large, 
virtual work spaces, 

* An additional structured-programming facility, APLGOL, is 
provided for creating user-defined functions, 

* A modern cursor-oriented APL editor is provided to compose and 
edit APL programs, 

* APL\3QOO operates under control of the Multiprogramming Executive 
Operating System (mpe), allowing it to run in a multi-language 
environment, 


APLS3Q00 CHAFACTER SET 

The APLN3000 character set consists of alphabetic characters, 
underscored alphabetic characters, numeric characters, the blank 
character, and special characters or graphic symbols . The complete set 
of characters is shown in figure 1-1, Mote that the names for the 
special characters are tor the characters themselves, and not 
necessarily for the functions tney represent. 

With the exception ofAAwc*yc3nu.£>--<Ofl( ) C ] ; : ¥ £ i , 
the special characters are used to denote primitive APL functions or 
APL operators (see Section III), and have tixed meanings in APL, 
Alphabetic characters are used to form names of variaoles and 
user-defined functions (see Section II), Numeric characters are used 
to form constants and may be used in conjunction with alphabetic 
characters to form names. The first character of a name must be 


M 






alphabetic, or a or A, Any number of blank characters may be used to 
separate names, operators, functions, or constants, and may not be 
used to form names* 


A 

B C D E F G 

H 1 J K L M 

N 0 

PQRSTUVWXYZ 



0 

1 2 3 4 5 6 7 

8 9 






dieresis 


- 

overbar 

< 

less 


not greater 


= 

equal 


not less 

> 

greater 



not equal 

V 

or 

A 

and 


+ 

plus 

- 

bar 

X 

times 


4- 

divide 

? 

query 

OJ 

omega 


€ 

epsilon 

p 

rho 

~ 

tilde 


T 

up (arrow) 

! 

down (arrow) 

l 

iota 


O 

circle 

★ 

star 

<- 

left (arrow) 


-> 

right (arrow) 

a 

alpha 

r 

upstile 


L 

downstile 

_ 

underbar 

V 

del 


A 

delta 

o 

null 

□ 

quad 


[ 

open bracket 

] 

close bracket 

c 

open shoe 


D 

close shoe 

n 

cap 

u 

cup 


-L 

base 

T 

top 

1 

stile 


/ 

slash 

\ 

slope 

■ 

quote 


( 

open parenthesis 

) 

close parenthesis 

; 

semicolon 



colon 

> 

comma 

• 

dot 



space 



$ 

dollar 


1- 

left tack 

H 

right tack 

{ 

open bracket 


} 

close bracket 

O 

diamond 

The following characters are formed by overstriking 



A 

BCDEFG 

HU K L M 

N 0 

PQ R S IU V W X Y Z 



A 

delta under 


1 

del stile 

4 

delta stile 

® 

log 


© 

circle bar 

<s 

circle slope 

4) 

circle stile 


/ 

slash bar 

\ 

slope bar 

A, 

nand 


V 

nor 

V 

del tilde 

i- 

base null 


T 

top null 

n 

cap null 

» 

quote dot 


I 

I-beam 

□ 

quote quad 


domino 







Figure 1-1. APL\3000 Character Set 
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APL KEYBOARD 


APL programs are generally composed and execut 
devices Having special APL keyboards. me 
Hewlett-Packard HP 2641A APL terminal is shown 
Alphabetic cnaracters are shown in uppercase but ar 
using the shift key, while most special cnaracte 
depressing the SHIFT key (uppercase), then str 
character key. Overstruck characters may be created 
character first, backspacing, then entering the 
Alternatively, an expression may be created by ente 
any order and overstriking in any order, as long as 
is the correct expression. This is referred to 
fidelity. (Note that the letter E cannot be produ 
backspace, then L.) 


ed using terminal 
keyboard for the 
in figure 1-2, 
e accessed without 
rs are accessed by 
iking the special 
by entering either 
other character, 
ring characters in 
the visual effect 
in APL as visual 
ced by entering F, 


APLN3000 also permits the use of standard ASCII terminals to create 
and run programs. These terminals of course do not have the special 
APL character set shown on the keys* Appendix A shows how to form 
these special characters from such non-APL terminals. 



Figure 1-2. APL\3000 Keyboard 
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INITIATING an APIA3000 SESSION 


An APIA3000 session is initiated by entering 


(APL) i sessionname ,3 username C/ userpassw ]. acctname E/ acctpassw J 
l , groupname C/ grouppassw 3] 

[;TERM = termtype 3 
[jTIME = cpusecs J 

BS 

CS 

[;PRI = 3 

DS 
ES 


UINPPI s inputpriority3 
[? HIPRI3 

where 

sessionname Arbitrary name used in conjunction with username 

and acctname parameters to form a fully- 
qualified session identity. Contains from 1 to 
8 alphanumeric characters, beginning with a 
letter. Default: null session name. 


username 


userpassw 


acctname 


Note; A fully-qualified session identity 
consists of: 

[ sessionname ,3 username , acctname 

and furnishes the minimum information 
required for log-on. Embedded blanks are 
forbidden in the username , acctname 
combination • 

A user name, established by the Account Manager, 
that allows logging on under this account. This 
name is unique within the account and contains 
from 1 to 8 alphanumeric characters, beginning 
with a letter. 

User password, optionally assigned by the 
Account Manager, Contains from 1 to 8 
alphanumeric characters, beginning with a 
letter. Separated rrom username by a slash with 
no surrounding blanks, as in username / userpassw , 

Name of account, as established by the System 
Manager, Contains from 1 to 8 alphanumeric 
characters, beginning with a letter. 

Note: Must be preceded by a period as a 
delimiter. 
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acctpassw 


Account password, optionally assigned by the 
System Manager. Contains from 1 to 8 
alphanumeric characters, beginning with a 
letter. Separated from acctname by a slash with 
no surrounding blanks, as in acctname/acctpassw . 

groupname Name of file group to be used for local file 

domain and central processor unit time charges, 
as established by the Account Manager. Contains 
from 1 to 8 characters, beginning with a letter. 
Default: Home group it assigned by Account 

Manager. 

grouppassw Group password, optionally assigned by the 

Account Manager. Contains from 1 to 8 
alphanumeric characters, beginning with a 
letter. Separated from groupname by a slash 
with no surrounding blanks, as in 
groupname / grouppassw . (Not needed when logging 
on under home group.) 

termtype Type of terminal used for input. Possible 

values are: 

Aj - Anderson-Jacobson 

ASCII - ASCII terminal 

BP - Bit-pairing 

GDI - Computer Devices, Inc. 

CP - Character-pairing 

DM - DataMedia 

GSI - GenCom Systems, Inc. 

HP - Hewlett-Packard 


cpusecs Maximum central processor unit time tnat session 

can use, entered in seconds, When this limit is 
reached, session is aborted. Must be a value 
from 1 to 32767, To specify no limit, enter 
question mark or omit tnis parameter, 

PRI The execution priority class that the command 

interpreter uses for the session, and also the 
default priority for all programs executed 
within tne session. BS is highest priority; ES 
is lowest. If a priority is specified that 
exceeds the highest permitted for the account or 
user name by the system, MPE assigns the highest 
priority possible below BS. Default: CS. 
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inputprlority 


Relative input priority used in checking against 
access restrictions imposed by the job fence# if 
one exists, (See the Console Operator's Guide 
for a description of the job fence,) Takes 
effect at log-on time. Must be a value from 1 
(lowest priority) to 13 (highest priority). If 
a value is supplied that is less than or equal 
to the current job fence set by the Console 
Operator# session is denied access. Default: 8 
if session/job Initiation is enabled# 13 
otherwise, 

HIPRI Request for maximum session-se 

priority# causing session to 
regardless of current job fence 
limit for sessions. 

Note: This parameter can be specified only by 

users with System Manager or System 
Supervisor capability. 


lection input 
be scheduled 
or execution 


The system prints tne message 

APLA3000 HP32105 time and date 
and awaits the first command. 


RUNNING APIA3000 


Once a session is initiated# APL can be run in either of two modes: 
calculator or immediate execution mode# or function definition mode. 


In calculator (immediate execution) mode# expressions are created and 
the results may be displayed on the terminal immediately after 
entering a carriage return. 

For example# 


13 

4 

52 


6 + 7 

5 + 7-9 


6 + 7 *(5 6 v 7 ) 


2 4 5 8+3 
9 11 


Assign a value to 


the variable A: 


«4 +-1 4 + 9 8.5 


Note that a left arrow (assignment arrow) is used to specify the APL 
assignment function. 


1-6 



If just the name of the variable is entered, APL displays its value; 

112.5 


In function definition mode, the APL editor is used to form 
expressions into user-defined functions for later use. These 
user-defined functions formed with the editor may then be invoked from 
calculator mode or from within another function to perform the 
computation. 

For example, CIRCLEAREA is a user-defined function to compute the 
areas of sectors of circles, 

[0] AREA+RADIVS CIRCLE ARE A DEGREES 

i 1 ] AREA+(oRADIUS*2)*D!5GREES*3S0 

RADIUS and DEGREES are arguments of the function. RADIUS denotes the 
radius of the circle and DEGREES denotes the angle the sector 
subtends. 

To run this user-defined function, the name is entered with the 
appropriate arguments as follows: 

16 3.2 CIRCLE ARE A 37.4 

8692.791899 

The value 163.2 is assigned to RADIUS and 37,4 is assigned to DEGREES, 
APL computes the area and displays the result. 

"The result can be assigned to the variable AREA by entering; 

AREA* 163.2 CIRCLEAREA 37.4 
AREA 

8592.791899 


TERMINATING AN APL\3000 SESSION 

To terminate an APL session, either the )OFF or )C0NTINUE command is 
used: 

)0FF 

See Section XI for complete discussions of the DOFF and DCONTINUE 
commands, 
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ELEMENTS OF APLX3000 


SECTION 


APL CONSTANTS 

APL accepts both numeric and character constants* All numeric 

constants are decimal# and may include a decimal point if appropriate. 
They may be entered in tne conventional manner as# for example# 

21 

23 

3.14159 
3.14159 

or in scaled form. The scaled form consists of an integer or 

fractional decimal number called the fraction followed by the letter E 
followed by an integer called the scale . The scale is the power of 
ten by which the fraction is multiplied. Examples of scaled form are 

2 ff4 

20000 

2ff~ 4 

.0002 

.05 El 

500000 

Note that an overbar may be used to denote a negative scale but a plus 

sign may not be used with a positive scale. 

Spaces are not allowed between the fraction and the E or between the E 
and the scale or an error message results. For example# 

.05 El 
SYNTAX ERROR 
.05 El 

+ 

.05 E 1 
SYNTAX ERROR 
.05 E 1 

+ 

Negative numbers are specified by an overbar immediately preceding the 
number. For example# 


45.6 

"53 

.001 

"l000 


45.6 
"53 
1 S’" 3 
" 15*3 
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The overbar is used only in specifying a negative constant. It is not 
the equivalent of the bar (-)# which is an APL function used either 
monadically to negate a value or dyadically to compute the difference 
between two arguments. For example# 


A *_6.3 
A 

6.3 

-A_ 

6.3 


SCALAR CONSTANTS 

APL treats a single constant such as 
297 

2,9 7 E 8 

34 

5 

as a scalar constant. 

VECTOR CONSTANTS 

A vector constant is entered as a sequence of numeric values. Each 
value must be separated from the next by one or more blank characters 
(spaces). The form of vector constants is 


2 4 


0.700 


CHARACTER CONSTANTS 

Character constants are entered by placing the characters between 
quote marks (' ') as follows: 


C*-' A ’ 

n 

A ~ 

APL displays the constant without the enclosing quotes as shown above. 

APL\3000 treats a single character as a scalar character constant and 
a string of characters as a vector character constant. An empty vector 
C^ero length) is specified by a consecutive pair of quote marks. 


ABC*2 4 6 8 10 
ABC 

6 8 10 

XYZ+0 “ 2 1712 2.3 4 7 “ 4 “97.5 54 3.14159 
XYZ 

“2700 1712 2.3 4.7 “ 0 4 “9.75701 6.4701 3.14159700 
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Examples 


C+'CHARACTER JECTOR* 
r 

CHARACTER 7ECTOR 

EMPTY’7EC*- ' 1 
EMPTYVEC 


If a quote cnaracter is to be included in a character string* it must 
be entered as a consecutive pair of quotes to distinguish it from the 
quotes enclosing the string. For example, 


QUOTE*-' ' ' ' 

TIME*-' 1 O' 'CLOCK' 


is accepted and displayed by APIA3QQ0 as 


QUOTE 

» " * 

TIME 

1 O'CLOCK 


APL EXPRESSIONS 


The expression is the basic executable unit in APL. An expression is 
written using names (variables and user-defined functions), constants , 
and APL functions or APL operators. For example, 


Variable 


V~ \ 

YIELD*- 10000* .05 

L _ 


Constants 


Function 


The expression just shown assigns to the variable YIELD the value 
resulting when 10000x.05 (also an expression) is evaluated. The 
specification arrow (*-) is an APL primitive function (see Section III) 
and means " is specified by . M Thus YIELD is specified by the value 
500, Several separate expressions may be written on one line if they 
are separated by diamonds (0), as for example 


YIELD*- 1000Ox . 05QIRCOME+YIELD* 12 


The result of an expression is displayed on the terminal 
leftmost APL primitive function in the expression is an 
arrow (-*), an APL assignment function (+-), or the leftmost 


unless the 
APL branch 
element is 
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the name of a user-defined function which does not return a value. For 
example # 


10000*.05 


4 + 12 . 3 

/- 

+ 5 + 7 

F 

ROOTS 


■ APL displays value 
■APL assignment arrow 

APL branch arrow (see Section VII) 

User-defined function (see SectionVIl) 


Alternatively# if a variable has been assigned a value# that value can 
be displayed by entering the name of the variable. 


YIELD 

5 00 

INCOME 
41.66666567 


The result of any portion of an expression can be displayed by 
assigning it to the output variable quad (□) (see Section III) at the 
appropriate point in the expression. For example# 

F+6+U+4+U+18 

18 

22 


The specification arrow may appear any number of times in an 
expression and is treated in the same way as other primitive APL 
functions such as +# -# *# * and so forth. 


A+6+5+4+C+14 

4 


A second expression type is the branch expression# which may appear in 
a user-defined function to modify the normal order of execution. 
Typically# a branch evaluates the expression to the right of the arrow 
and transfers control to the line number of the APL function 
corresponding to the value of this expression. Branch expressions are 
described and illustrated in Section VII, 

The final type of expression in APL is used to invoke a user-defined 
function. This type of expression also is described and Illustrated 
in Section VII, 
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APL FUNCTIONS 


An APL function may operate on zero, one# or two arguments # and 
optionally return a result . For instance# the primitive dyadic APL 
scalar function sum (+) taxes two arguments and returns their 
algebraic sum as the result . This result then may be used as an 
argument for another function. For example# 



65 


5x13 


MONADIC FUNCTIONS 

A monadic function operates on only one argument. Negation# for 
example# is a monadic function which operates on the argument 
appearing to the right of the bar as follows: 

A*-4 5 
l£ 

~ 4 5 

DYADIC FUNCTIONS 

A dyadic function operates on two arguments# one to the left and one 
to the right of the function. Thus# the functions sum# difference# 
product# and quotient (represented by +# -# x# and + # respectively) 
require two arguments. APL graphic symbols often have both monadic 
and dyadic meaning. For example, A-B signifies subtraction of B from 
A (dyadic)# whereas -A signifies negation of A (monadic); and A^B 
signifies the quotient of A and B (dyadic)# whereas +A signifies the 
reciprocal of A (monadic). 


Dyadic Functions Monadic Functions 


13 

42 


7 + 6 
7x6 
7 *6 


1.166656667 




.1666656667 


NILADIC FUNCTIONS 

A niladic function has no argument. For example# if T is a user- 
defined function that returns the time of day# then entering T will 
cause APL*"to return the current time (no argument exists). 
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PRIMITIVE FUNCTIONS 


A primitive APL function is a part of the API. language and cannot be 
redefined by the user. Such primitive APL functions are usually 
represented by a special graphic symbol. For example, + - xi t * are 
primitive functions, A primitive function differs from a used-defined 
function in that a user-defined function consists of a number of 
expressions defined by a user to perform a specific computation. 

The set of primitive functions is shown in figure 2-1, They are 
defined in Section III, 

Primitive functions can produce different functional effects by 
combining an operator with the primitive function. For example, the 
sum of the elements of a vector constant will be computed if the sum 
(+) primitive scalar function is combined with the reduction (/) 
primitive operator, as follows: 


V8C +2 4 6 8 10 
+ / VEC 
3 0 


Operators are discussed in Section III, 


USER-DEFINED FUNCTIONS 

A user-defined APL function is a series of apl expressions combined 
into one or more lines to form a function. This user-defined APL 
function then can be invoiced from an APL expression to perform a 
computation on zero, one, or two arguments. For example, a 
user-defined function to return the distance traveled could be used in 
an APL expression as follows: 

30 D 10 

If 30 represented miles per hour and 10 represented minutes, APL then 
would return 5, Note that spaces or other special characters must be 
used to separate the name of a user-defined function from its 
arguments. User-defined APL functions are discussed and illustrated 
in Section VII, 


SYSTEM COMMANDS 

In addition to using the APL language, it is also necessary to 
communicate directly witn the APL system, A set of system commands is 
provided for this purpose. These commands are used for such things as 
logging on and off, saving a workspace for later use, and establishing 
passwords that lock workspaces so that they cannot be accessed by 
other users. System commands are discussed in Section XI, 
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PRIMITIVE SCALAR FUNCTIONS 


Monadic Dyadic 


+ 

conjugate 

+ 

plus 

- 

negative 

- 

minus 

X 

signum 

X 

times 

-r 

reciprocal 

-4- 

divide 

| 

magnitude 

1 

residue 

L 

floor 

L 

minimum 

r 

ceiling 

r 

maximum 

? 

roll 



* 

exponential 

* 

power 

® 

natural logarithm 

© 

general logarithm 

o 

pi times 

o 

circular 

* 

factorial 

! 

binomial 

~ 

not 





A 

and 



V 

or 



A, 

nand 



V 

nor 



< 

less 




not greater 



= 

equal 




not less 



> 

greater 




not equal 

PRIMITIVE STRUCTURAL FUNCTIONS 


Monadic 

Dyadic 

P 

shape 

P 

reshape 

, 

ravel 

» 

catinate/laminate 

0 © 

reversal 

<D e 

rotate 

$ 

transpose 

$ 

transpose 


Figure 2-1. APL\3000 Primitive Functions (Sheet 1 of 2) 
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PRIMITIVE SELECTION FUNCTIONS 


Dyadic 

| take 

i drop 

/ / compress 

\ \ expand 

[ ] index 


PRIMITIVE SELECTOR GENERATOR FUNCTIONS 

Monadic 

Dyadic 

i index generator 

i index of 

4 grade up 
f grade down 

e membership 


? deal 

PRIMITIVE NUMERICAL FUNCTIONS 


Monadic 

Dyadic 

B matrix inverse 

a matrix divide 


-L decode 


T encode 


PRIMITIVE TRANSFORMATION FUNCTIONS 
Monadic Dyadic 


A. execute i- execute 

T format T format 

Figure 2-1. APL\3000 Primitive Functions (Sheet 2 of 2) 
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APL ORDER OF ASSOCIATION 


In APL, there is no hierarchy of association among functions (such as 
associating division before addition), within a given level of 
parentheses in an expression, association is strictly right to left . 

If parentheses are used, then the part of the expression within 
matching parentheses is associated right to left before applying its 
result to any function outside the parentheses. For example, 

18*6+3 

2 

18*(6+3) 

n 

/ 

(l8*6)+3 

6 

ARRAYS 

An array is a collection of zero or more values (elements), all of 
which may be represented by an array name. An array with zero 
elements is an empty array? a scalar (single) value is dimensionless; 
and a vector value such as 

2 4 6 8 10 

is a single-dimensional array and is considered to be of ran* 1 , A 
matrix, which has two dimensions, or axes , such as 


2 4 6 8 10 
1 3 5 7 9 

is a two-dimensional array of rank 2 . apl\ 3O00 allows arrays up to 
and including a maximum of 63 dimensions. 


The elements of a vector (one-dimensional) array may be selected by 
enclosing the indices of the desired elements in brackets, called 
Indexing. For example, variable XQR has the following values 


XQR+2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 


If 1-origin indexing is in effect (see page 2-11 ), elements 3, 4, and 
8 can be indexed by entering XGRC3 4 83. APL returns 

XQRl 3 4 8] 

6 8 16 

Another example: 

CHAR*'CHARACTER STRING' 

CHARI 5 6 7 14 15 16] 

ACTING 
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APL displays a vector array on one or more output lines. The vector 
can be formed into a more complex structure, containing more 
dimensions, with the reshape (p) function (see Section III): 


2 

14 

CHAR 
ACTE 
R ST 
RING 


2 SqXOR 
4 6 B 

16 18 20 
4 4p CHAR 



10 12 
22 24 


’ Name of vector 
Reshape function 
Number of columns 
Number of rows 


The 

left 

arguments in 

the abov 

shape 

of 

the 

resulting array. 

with 

two 

rows 

and six 

columns. 

with 

four 

rows 

and four 

"columns. 

For e 

xample 

r 






CHAR *'12 

34557890.4 




SHAPE *3 

4 2p CHAR 


e examples (2 6 and 4 4) specify the 

The first example produces an array 
The second example produces an array 
More complex shapes can be created. 


12 

34 

56 

78 

90 
AB 
CD 
E E 



Vector name 
Reshape function 
Number of columns 
Number of rows 
Number of planes 
Name of array 


GH 

IJ 

KL 

M.N 


Note that when all the values of one axis have been displayed, a line 
is skipped and the next set of axis values is then returned. 

The shape of an array can be determined by entering the monadic shape 
(£) function (see Section ill) followed by the array as its argument. 


pRESHAPE 1 

2 6 

ORE SHAPE 2 

4 4 

p SHAPE 
3 4 2 
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The elements of a multidimensional array can be selected by indexing 
in the same manner as snown for vector arrays, except that an index is 
provided for each axis. For example, to select and display the fourth 
element in the second row of array FESHAPEli 


RESHAPE! 

2 4 6 8 10 12 

14 16 18 20 22 24 

RESHAPE 1[2;4] 

20 . 


The next example selects the second, third, and fourth elements from 
the third and second rows of array FESHAPE2• 


RESHAPE 2 

1234 
5678 
90 A3 
C D 3 F 

RESHAPE 2 [ 3 2 ; 2 3 4 ] 
0 AB " ' ~ 

578 


To select the second column of the first four rows of the second plane 
of SHAPE; 


SHAPE 

12 

34 

56 

78 

90 

AB 

CD 

EF 

GH 

TJ 

KL 

MN 

SHAPE L 2; 1 2 3 4 ; 2] 

0 5 DF 


The foregoing examples assume that the elements are numbered 1, 2, 3, 
... _n, and therefore is called 1-origin indexing . Indices may begin 
with 0, called 0-origin indexing, by setting the index origin to 0 
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with the system variable DIO (see Section IV). For example* 



WORKSPACES AND LIBRARIES 

When an APL session is initiated* the system reserves a block of 
storage for this session. This storage is called a workspace * and 
contains all the information to perform calculations* save the 
results* etc. This workspace also contains the definitions of 
user-defined functions as well as the names and values of any 
variables. The workspace also includes areas used by the system for 
the temporary storage of intermediate results while a calculation is 
in process* etc. The workspace being used is called the active 
workspace. workspaces may have names assigned to them so that they 
can be saved as duplicates of the active workspace for later use. 
These saved workspaces are called stored workspaces. 

The set of saved workspaces is called a library . Each workspace is 
identified by group and account names as well as the actual name 
assigned to it, in referring to workspaces in the user's own library* 
however* the group and account names may be omitted* because they are 
supplied automatically. 

In systems with multiple APL users* it is often convenient to use 
functions or variables contributed by others. A user may activate an 
entire workspace saved by another user* or he may copy selected items 
from another user's workspace. In order to copy another user's 
workspace# the group and account names# if different# must be supplied 
together with the workspace name. 

Some libraries (usually identified by a special group and account 
name# for example# PUB,SYS) are not assigned to individual users* but 
are designated as public libraries. There may be restrictions# 
however# on who can save* delete# or modify a workspace in a public 
library. In general# a public library workspace can be re-saved or 
deleted only by the user who first saved it. 
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APLX3000 

PRIMITIVE FUNCTIONS AND OPERATORS 


SECTION 


Primitive functions in APL consist of two types: primitive scalar 
functions and primitive mixed functions. Primitive scalar functions 
operate on scalar arguments or arrays on an element-by-element basis, 
producing results of tne same rank: and shape. Primitive mixed 
functions also operate on scalars and arrays, but may produce results 
which differ in rank and shape from the original argument arrays. 

Four primitive operators can be applied to the primitive scalar dyadic 
functions to produce different effects. Operators are discussed 
starting on page 3-17, 

PRIMITIVE SCALAR FUNCTIONS 

Primitive scalar functions are of two types: monadic and dyadic, 

A monadic primitive scalar function applies to one scalar argument, or 
to each element of one array argument. If the argument is an array, 
the result is an array of the same shape as the argument. Each element 
of the resulting array is produced as the monadic function is applied 
to the corresponding element of the original argument array. For 
example, 

£ 

~1 34.1 "6.035 155.64 

zA 

7 "34.1 6.035 "155.64 

A dyadic primitive scalar function applies to a pair of arguments. The 
arguments can be scalars or arrays. If arrays are used, both must be 
of the same rank and shape, or, if not, one must be a scalar or unit 
Cone-element array). 

When arrays of the same shape are used as arguments, each element of 
the left argument is paired with the corresponding element in the 
right argument. For example, 

A 

"7 34.1 "6.035 155.64 

j? 

"3 1.2 ".35 10 

A*B 

21 40.S2 2.11225 1556.4 

If one of the arguments is a scalar or unit (one-element) array, then 
that element is paired with every element of the other argument 
(extended) as follows: 

c 

4 5.3 ~ 

"3 1.2 ".35 10 

C*B 

"135.9 54.35 "15.855 453 
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Primitive scalar functions are typically applied to all numbers with 
the exception that arguments to the boolean functions (a v * v are 
restricted to the binary values 0 and l, Additionally# the functions 
= and * may be applied to character arguments. 


Monadic primitive scalar functions are shown in table 3-1 and dyadic 
primitive scalar functions are shown in table 3-2. Note that most 
symbols (such as + and -) are used both monadically and dyadicallyj 
whether they are interpreted as monadic or dyadic depends on the 
context in which they are used. 


Some primitive dyadic scalar functions possess a left identity and/or 
a right identity . A left identity is such that if L is the left 
identity for the function fn# then LfnX equals x for all X, 


For a right identity P# XfnR equals X for all X, 


Table 3-3 shows the identity elements of the primitive dyadic 
functions. Note that the relational functions equal ( = )# not equal 
(*)# less (<)# greater (>)# not less (^)# and not greater (<) do not 
possess true identity elements when used as relational functions# but 
do when used as boolean functions (applied only to the values 0 and 

n. 


PLUS# MINUS# TIMES# AND DIVIDE FUNCTIONS 


Plus (+)# minus (-)# times ( x )# and divide CO are dyadic functions 
which perform the same functions in APL as they do in standard 
arithmetic operation, (Note that in APL# 0+0 returns a value of i? 
however# when X * 0# X^O results in an error.) 


Examples of these four functions are: 


A_ 

5 34.2 "7 “6.035 155.64 1 

JL 

'3 1.2 “.35 10 “.75 “l 

A + B 

2 35.4 “7.35 3.965 154.89 0 

A-B 

8 33 “6.65 “16.035 156.39 2 

A*B 

“15 41.04 2.45 “60.35 “116.73 “l 

A*B 

“1.666655567 28.5 20 “.6035 “207.52 1 

A- 5 

0 29.2 “12 “11.035 150.64 “4 
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Table 3-1. Monadic Primitive Scalar Functions 


NAME 

DEFINITION 

EXAMPLE 

Conjugate 

+ A is A 

A 

6 

+ .4 

6 

Negative 


A 

6 

- A 



6 

Signum 

x A is (A>0)-A<0 

A 

6 

1 

Reciprocal 

-rA is 1 -T- A 

A 

6 

rA 

.1656666657 

Magnitude 

Absolute value 

B 

4.743 '4.743 

1 R 



1 “ 

4.743 4.743 

Floor 

Least integer 

B 

4.743 '4.743 

LB 

4 '5 

Ceiling 

Greatest integer 

B 

4.743 '4.743 

[B 

5 '4 

Roll 

?A is random choice from set of 

A consecutive integers 
beginning atDlO. 

r 

6 6 6 6 5 6 

?C 

1 3 4 2 5 2 

Exponential 

e* 

A 

6 

* A 

403.4287935 

Natural 

logarithm 

In A or loge A 

A 

6 

1.791759469 

Pi times 

4 

X 

> 

D 

1 2 

OD 


3.141592654 6.283185307 











































Table 3-1. Monadic Primitive Scalar Functions (continued) 


! 

Factorial 

!A = Ax A - lx. . .xl 

A 

6 

I A 

720 

~ 

Not 

~1 is 0, ~0 is 1. Truth table 

E 



defined for 0 and 1 only. 

1 0 




~E 




0 1 


Table 3-2. Dyadic Primitive Scalar Functions 







































Table 3-2. Dyadic Primitive Scalar Functions (Continued) 


NAME DEFINITION 

Circular, Hyperbolic, ~7oX = Artanh X 

and Pythagorean ~6oX = Arcosh X 

functions _ 5oX = Arsinh X 

-4oX = (~1 + X*2)*.5 

_ 3oX = Arctan X 
_ 2oX = Arccos X 
~1oX = Arcsin X 

OoX = (1 — X*2)*.5 

loX = Sine X 
2oX = Cosine X 
3oX = Tangent X 

4oX = (1 + X*2)*.5 


5oX = Sinh X 
6oX = Cosh X 
7oX = Tanh X 


Binomial 


($) 


And 


Or 


Nand 


Nor 


A 

B 

A A B 

A v B 

A^B 

AvB 

0 

0 

0 

0 

1 

1 

0 

1 

0 

1 

1 

0 

1 

0 

0 

1 

1 

0 

1 

1 

1 

1 

0 

0 


Less 


Not greater 


Equal 


Not less 


Result is 1 (TRUE) if relation holds and 0 (FALSE) 
if it does not hold. For example, 4<6 is 1,4> 6 is 0. 


Greater 







































Table 3-3. Identity Elements of Dyadic Primitive Scalar Functions 


FUNCTION 

SYMBOL 

IDENTITY ELEMENT 

LEFT OR RIGHT 

Plus 

+ 

0 

Both 

Minus 

- 

0 

Right 

Times 

X 

1 

Both 

Divide 

-5- 

1 

Right 

Residue 

1 

0 

Left 

Minimum 

L 

The largest 
representable number 

Both 

Maximum 

r 

The greatest in 
magnitude of 
representable negative 
numbers 

Both 

Power 

* 

1 

Right 

Logarithm 

® 

None 


Circle 

o 

None 


Binomial 

! 

1 

Left 

And 

A 

1 

Both 

Or 

V 

0 

Both 

Nand 

A 

None 


Nor 

V 

None 


Less 

< 

0 ' 


Left 

Not greater 


1 


Left 

Equal 

= 

1 

Apply for boolean 

Both 

Not less 


1 

arguments only 

Right 

Greater 

> 

0 


Right 

Not equal 

* 

0 


Both 
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RESIDUE FUNCTION 


Residue (|) is a dyadic primitive scalar function which returns the 
remainder when a value X is divided into a value Y? that is# Xl|( 
returns the remainder when X is divided into Y, 

The following rules apply for zero and non-zero values: 

# If X = 0# X | Y Y* 

* If X = 0# X | Y +r> a value between 0 and X. The result can equal 0 

but not X (equal to Y-NIX for some integer N), 

Examples of the residue function are 

± 

5 34.2 '7 "6.035 155.64 1 

JL 

"3 1.2 ".35 10 ".75 ‘l 

A I B 

2 1.2 ‘.35 ‘2.07 154.89 0 

B 1 A 

"iff 00 off‘01 2.220446049ff‘l6 3.9555:00 _ 3.6 S’" 01 Off 00 

CONJUGATE FUNCTION 

Conjugate ( + )# a monadic primitive scalar function# returns the value 
of its argument unchanged. For example# 

A 

5 34.2 ‘7 ‘6.035 155.64 1 

+ A 

5 34.2 ‘7 ‘6.035 155.64 1 

NEGATIVE FUNCTION 

The monadic primitive scalar function negative (-) returns the value 
of its argument with the opposite sign, For example # 

A 

5 34.2 ‘7 ‘6.035 155.64 1 

zA 

‘5 ‘34.2 7 6.035 ‘155.64 ‘l 

SIGNUM FUNCTION 

The signum function (x) is a monadic primitive scalar function which 
returns a value that is dependent upon the sign of its argument. If A 
is negative# then xA is _ l; if A is positive# xa j. s i ; n a is 0# then 
xA is 0, 

Examples of the signum function are: 

A 

5 34.2 ‘7 ‘6.035 155.64 1 

x A 

1 1 *1 ‘ 1 1 1 
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RECIPROCAL FUNCTION 

The monadic primitive scalar function reciprocal (*) returns the value 
ItX for the argument X. For example# 

5 34.2 “7 ‘6.035 155.64 1 

t A 

2E~ 01 2.9239766080*02 *1.4285714290*01 *1.6570008290*01 6.4250835260*03 

1000 

Note that when X is 0# an error results, 

MAGNITUDE FUNCTION 

The magnitude (|) monadic primitive scalar function returns the 
absolute value of its argument. For example# 

A_ 

5 34.2 '7 ”*6.035 155.64 1 

Li 

5 34.2 7 6.035 155.64 1 

BOOLEAN FUNCTIONS 

The five boolean functions apply only to the values 0 and 1, APL 
interprets 1 as being true and 0 as being false. 

Four of the boolean functions are dyadic# the other# not (~)# is 
monadic, A truth table for the functions is; 


X 

Y 

AND 

OR 

NAND 

NOR 

NOT 

XaY 

XvY 

XaY 

XvY 

-X 


1 

1 

1 

1 

0 

0 

0 

0 

1 

0 

0 

1 

1 

0 

0 

1 

0 

1 

0 

1 

1 

0 

1 

0 

0 

0 

0 

0 

1 

1 

1 

1 


RELATIONAL FUNCTIONS 

The relational functions are dyadic primitive scalar functions and are 
listed below. 

Less CO 

Not greater CO 

Equal (=) 

Not less (>) 

Greater (>) 

Not equal (*) 

The functions < < > > only apply to numeric arguments# while = and * 
apply to numeric and character arguments. Note that the result of 
# 1'»1 is always 0 and that is always 1, 
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The result is 1 (true) if the compared relation is true and 0 (false) 
if the compared relation is false. For example# 

A_ 

5 34.2 “7 “6.035 155.64 1 

B_ 

“3 1.2 “.35 10 “.75 “l 

A<B 

0 0 110 0 
A>B 

110 0 11 

The results of comparing the arguments of relational functions are not 
absolute# but are within a certain comparison tolerance whose value is 
contained in the system variable DCT, The question "is A equal to B" 
is straightforward unless floating-point numbers represented in a 
finite number of bits (64 bits for APIA3000) are involved. The A=B 
question then becomes harder to answer because many floating-point 
numbers cannot be represented exactly in 64 bits. Thus# problems 
arise if the equals test is defined to be "exact." The following 
example illustrates this point, 

A -*-* 9 704 

1.030927835F“02 

UCT+0 pi THIS MAKES ’ = ’ AN EXACT TEST 

1=97 *A 

0 

pi BECAUSE 1/97 CANNOT BE STORED EXACTLY 
pi THEN 'A' IS NOT A NUMBER THAT CAN 
pi BE MULTIPLIED BY 97 TO RETURN 1 

This particular way to define = is then not very consistent with the 
way = would be expected to act. Thus the definition of = (and some 
related functions) is not an "exact" definition# but is relative to 
the magnitude of the operands and the value of DCT, The definition is 


X*-\A-B 

[13 

Y+r/(\A),\B 

[23 

IF (Y*QCT)>X THEN 

[3] 

A IS EQUAL TO B 



Notice that the preceding set of equations# while concise and correct# 
is difficult to understand. Paraphrasing them as follows may help; 

Equation (13 sets the variable X to the absolute value of the 
difference of the two arguments A and B. 

Equation 12J sets Y to the absolute value of the larger of the two 
arguments A and B, 

The third (and crucial) equation (3] states that the arguments are 
defined to be equal if DCT times the larger of the arguments (Y) 
is larger that the difference between the arguments. 
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Note that IUCT does not specify the absolute difference between the 
arguments but the difference relative to the size of the arguments. 
Thus two big numbers need not be as close# in an absolute sense# as 
two small numbers. Note that under this definition# if IUCT is 0# the 
equals test is exact in that the difference between the arguments A 
and B must be 0# exactly# for equation [33 to be true. 

There are several APb functions (such as index of# index generator# 
deal# roll# etc) which will result in an error unless the operand(s) 
are considered "integers,” In APIA3000# this test for integer is done 
in the following way: 

1) First# the integer closest to the argument is obtained, 

2) Second# the integer obtained in 1) is compared in a relative 
sense to the argument. 

3) If the integer from 1) is relatively equal to the argument# 
that integer is used as the argument. 

An example: 


A*-300o ilOOO 
A [ 2 5 0 ] 

250 

nCT+lE~10 

4[250+lg’ll] 

250 

A[ 250-H^"l0] 

DOMAIN SRROE 

4[250+.lE'~09] 

+ 

The relational functions act as boolean functions when they are used 
with the boolean arguments 0 and 1. Table 3-4 shows the boolean 
functions and relational functions for all possible values of the two 
boolean arguments. 


Table 3-4. Truth Table for Boolean Functions 


■ 

1 

AND 

OR 

NAND 

NOR 

LESS 

NOT 

GREATER 

EQUAL 

NOT 

LESS 

GREATER 

NOT 

EQUAL 

(XOR) 

NOT 

■ 

D 


Hfi 

X*Y 


X<Y 

X=sY 

kki 

X^Y 

X>Y 

X^Y 

D 

D 

1 

1 

i 

1 

0 

0 

0 

1 

i 

1 

0 

0 

0 

0 

1 

0 

0 

1 

1 

0 

0 

0 

0 

1 

1 

1 

0 

i 

0 

1 

0 

1 

1 

0 

1 

1 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

1 

1 

0 

1 

1 

1 

0 

0 

1 

1 
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MINIMUM AND MAXIMUM FUNCTIONS 


The minimum (L) and maximum (ID functions are dyadic primitive scalar 
functions that compare two values and return tne smaller or larger of 
the two. Examples are 


A 


5 

34.2 

7 

6.035 155. 

"3 

B 

1.2 

.35 

10 ”".75 


AIB 



'3 

1.2 

7 

6.035 '.75 

5 

A\ B 

3 4.2 

.35 

10 155.64 


FLOOR AND CEILING FUNCTIONS 

Floor (L) and ceiling CD are monadic primitive scalar functions. The 
floor function returns the largest integer value which does not exceea 
the value of its argument. The ceiling function returns the smallest, 
integer value which is not less than the value of its argument. 

Examples are 


A 


5 

34.2 

7 6.035 


JjL 


5 

34 "7 

"7 155 


LA 


5 

35 '7 

'6 156 


155.64 

1 

1 


1 


The results returned by the floor and ceiling functions depend on the 
value of the comparison tolerance (DCT), See page 3-9 for a 
description of results which are dependent on DCT, An example is: 


QCT^lff 13 
£*-97x1*97 

LI 

i 

II 

i 

QCT+O 

ix_ 

o 

II 

i 


ROLL (RANDOM NUMBER) FUNCTION 

Roll (?) is a monadic primitive scalar function (named after the roll 
of a die) which produces a pseudorandom choice with replacement 
between DIG and A-l-DlO (depending on the inaex origin presently in 
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effect). For example, if the argument is 6 and the index origin is 1, 
then ?6 will produce a random integer between 1 and 6, 


Examples are 

6 4 

2 6 

3 4 

6 4 


010-1 


? 6 

6 

6 5 

5 

6 6 

1 

3 

2 

2 

6 

? 7 

7 

7 7 

7 

7 7 

2 

2 

7 

6 

7 

□I0—0 




? 6 

6 

6 6 

6 

6 6 

0 

5 

1 

3 

0 

? 7 

7 

7 7 

7 

7 7 

0 

1 

6 

5 

0 


The result produced oy the roll function is always a non-negative 
integer• 


POWER FUNCTION 

The power function (*) is a dyadic primitive scalar function which, in 
the form X*N, raises X to the power N. X*-h therefore is the 
reciprocal of X*N, and X*^N is the Nth root of x. 


Examples are 


_A 

5 34.2 "7 *6.035 155.64 1 

y-2 4 6 *2 *4 *6 
A *.¥ 

2.5701 1.36805773706 1.17649705 2.745651746?"02 1.7041786167*09 1700 

0*0 

1 

Note that APL defines the indeterminate case 0*0 as l. 

The power function results in a domain error if the following two 
restrictions are not observed for x*N: 

1. If X = 0, N must be non-negative. 

2. If X < 0, N must be an integer or a rational number with an 

odd denominator. 

EXPONENTIAL FUNCTION 

The exponential function (*) is a monadic primitive scalar function 

where *X is e*x and e is the natural logarithm base, which is 

2,718281828459045. 

Examples are 

A_ 

5 34.2 *7 *6.035 155.64 1 

* A 

1.484131591702 7.126417816714 9.1188196567*04 2.3934965277*03 3.922772873767 

2.718281828700 
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NATURAL LOGARITHM FUNCTION 


The natural logarithm function (®) is a monadic primitive scalar 
function and the inverse of the exponential function. The domain of 
the natural logarithm function is limited to positive numbers. 

Examples of the natural logarithm function are 


•*i 

1 

X*-2 4 6 8 10 

•X 

.6931471806 1.3862943611 1.7917594692 2.0794415417 2.302585093 


GENERAL LOGAFTIHM FUNCTION 

The general logarithm function (®) is a dyadic primitive scalar 
function in which B®A is the "log base 8 of A,” The general logarithm 
function is the inverse of the power function in that B*B®A ana B®B*A 
both equal A. 

Examples of the general logarithm function are 


L 

2 4 6 8 10 

29X 

1 2 2.584962501 3 3.321928095 

10SX 

.3010299957 .6020599913 .7781512504 .903089987 1 


CIRCULAR HYPERBOLIC AND PYTHAGOREAN FUNCTIONS 

The symbol o signifies a monadic primitive function which returns a 
value equal to PI times the argument. For example# 


Y+-0 1 2 4 6 8 10 

oy 

0 3.141592654 6.283185307 12.566370614 18.849555922 25.132741229 

31.415926536 


The same symbol also can be used to specify a dyadic primitive scalar 
function to signify 15 circular# hyperbolic# and pythagorean 
functions. When used in this manner# an integer in the range ”7 to 7 
as the left argument signifies the particular function: 
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~7oX = 

Arctanh X 

“6oX = 

Arccosh X 

“5oX = 

Arcsinh X 

"4oX = 

r1+X#2)#,5 

"3oX = 

Arctan X 

"2oX = 

Arccos X 

“loX = 

Arcsin X 

OoX = 

C1~X*2)*,5 

ioX = 

Sine X 

2oX = 

Cosine X 

3oX = 

Tangent X 

4oX = 

(1+X*2)*,5 

5 0 X = 

Sinh X 

6 oX = 

Cosh X 

7 oX = 

Tanh X 

six ci 

rcular functions 

loX = 

Sin 

2oX = 

Cos 

3oX = 

Tan 

“loX = 

Arcsin 

“2oX = 

Arccos 

“3 O X = 

Arctan 


The right argument of 
example, 


the above circular functions 


is in radians. 


For 


Z- 7 5 3 101357 

102 

“.6569865987 .9589242747 '.1411200081 '.8414709848 0 .8414709848 

.1411200081 '.9589242747 .6569865987 

2QZ 

.7539022543 .2836621855 '.9899924966 .5403023059 1 .5403023059 

'.9899924966 .2836621855 .7539022543 

3QZ 

'.8714479827 3.3805150062 .1425465431 '1.5574077247 0 1.5574077247 

".1425465431 "3.3805150062 .8714479827 

~ 3QZ 

"1.4288992722 "1.3734007669 *1.2490457724 ".7853981634 0 .7853981634 

1.2490457724 1.3734007669 1.4288992722 


The six hyperbolic functions are; 

5oX = Sinn 
6oX = Cosh 
7oX s Tann 
”5oX = Arcsinh 
“6oX = Arccosh 
~7oX = Arctanh 


The functions sinh CboX) and cosn (6oX) are the odd 
components of the exponential function. For example, box is 
is even, and the sum (5oX) + 6oX is equivalent to *X. 


and even 
odd, 6oX 
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£+8 
5 01 

1490.478826 
601 

1490.479161 

( 5on +6Q.Y 
2980.957987 
*X 

2980.957987 

The tanh function (7oX) is similar to the definition of the tangent, 
which is 

sinh 

tanh =- 

cosh 

thus 

70 X 

.9999997749 

( 5oy ) *60,Y 
.9999997749 


The three Pythagorean functions are: 

OoX = (1-X*2)*„5 
”4oX = (-1+X*2)*.5 
4oX = (1+X*2)#,5 

The Pythagorean functions are related to the properties of a right 
triangle as shown in figure 3-1, 



DE=“4°AE 


Figure 3-1. Pythagarean Functions 


Each of the circular, hyperbolic, and Pythagorean functions has an 
inverse in the same family; thus, (-I)oX is the inverse of XoX. Some 
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of the functions are not isomorphic, however, and thus their inverses 

can have many values 

, The ! 

principal values are shown below: 

ARCCOSH 

60Y 

V>0 


40 Y 

/>0 

ARCCOS 

7«-"20,Y 

(7>0)a(Y<oi) 

ARC SIR 

V+~lOX 

( | 7 ) <o.5 


V+QOX 



r /«-4 0Y 

/>0 

Domain restrictions 

are as 

follows: 

ARCTARH 

"70 Y 

1> | Y 

ARCCOSH 

"60Y 

Y>1 


~40Y 

1< 1 Y 

ARCCOS 

"20Y 




1> I Y 

ARC SIR 

"lOY 



OOY 

Y< 1 

FACTORIAL FUNCTION 



The factorial function (i) 

is a monadic primitive scalar function. For 


a positive integer argument X, !X is the product of ail positive 
integers up to and including X, Thus, iX = Xx«x-1, or ix-i = (JXHX. 
This relation is used to extend the function to both positive integer 
and non-integer values and to negative non-integer values. Negative 
integer values are excluded from the domain of the factorial function 
because the relation described above leads to the expression (J0)^0, 
or ivO for i"1, 

Examples of the factorial function are: 


X-*- 2.5 1.4 .5 0 1 

IX 

2.363271801 "3.722980622 


BINOMIAL FUNCTION 

The binomial function (J) is a dyadic primitive scalar function. For 
non-negative integer arguments X and Y, the function XJY is defined as 
the number of different ways X things can be chosen from Y things. The 
expression (iY)*(JX)x(iY-X), however, produces an equivalent 
definition which is used to extend the binomial function definition to 
all numbers. 

Unlike the factorial function, which excludes negative integers from 
its domain, the binomial function does not. This is because any 
implied division by zero in the numerator 1Y is accompanied by a 
corresponding division by zero in the denominator. Thus, the binomial 
function extends correctly to all numbers. 


2 3 4 5 

1.772453851 1 1 2 6 24 120 
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Examples of the binomial function are: 

A>0 1 2 3 4 5 
Y ±6 

Ill 

1 6 15 20 15 6 

OPERATORS 

Operators are combined with dyadic primitive scalar functions to 
produce different functions. For example# the reduction operator (/) 
can be combined with the dyadic primitive scalar function plus ( + ) to 
sum the elements of a vector to produce a scalar sum as follows: 

x_ 

0 1 2 3 4 5 

111 

15 

The four major operators are: 

* Reduction (/) 

* Scan (\) 

* Inner product (,) 

* Outer product C° .) 

Additionally# an auxiliary axis operator may be used in conjunction 
with the scan and reduction operators and the primitive mixed 
functions to specify the coordinate (axis) over which the operation is 
to occur. 


REDUCTION OPERATOR 

The reduction operator (/) applies a dyadic primitive scalar function 
which precedes it to elements in the right argument# producing a 
result whose rank is one less than that of the argument (thus reducing 
the rank). For example# 


30 

6 


VECTORS 4 6 3 10 
+/VECTOR 

-/VECTOR 


t/VECTOR is the equivalent of 2+4+6+8+10 

-/VECTOR is the equivalent of 2-4-6-8-10 

The reduction operator performs as though the function were placed 
between adjacent pairs of elements of VECTOR and associating right - 
to-left , 
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The last example demonstrates the right-to-left association, which 
causes -/VECTOR to result in the alternating sum of the elements of 
VECTOR, The alternating sum is the sum obtained after multiplying 
alternate elements of a vector by 1 and ~i . Thus, if ALTER^-1 “1 l~l i, 
then +/VECTORxALTER and -/VECTOR are equal, as demonstrated below: 


2 

2 

6 

6 


VECTOR 
4 6 8 10 

ALTER*-! ~1 1 “l 1 
VECTORxALTER 
'46 8 10 

+/VECTOR*ALTER 

-I VECTOR 


An alternating product can be obtained by ^/VECTOR. For example. 


VECTOR 

2 4 6 8 10 

ALTER 

1 ”l 1 ~1 1 

x/VECTOR*ALTER 

3.75 

*/VECTOR 

3.75 


When the reduction operator is applied to any scalar or vector 
argument, the result is a scalar value. The value resulting from a 
scalar or unit array argument is the argument itself. The effect of 
applying the reduction operator to multi-dimensional arrays is 
discussed under the axis operator on page 3-20 • 


If the reduction operator and a primitive scalar dyadic function are 
applied to an empty array, the identity element of the function 
becomes the result if an identity element exists for that function. If 
an identity element does not exist for the function, a domain error 
results. Note that an empty array may be of type character or numeric 
and identity elements differ depending on these types. For example, 
the identity elements for the times function (x) is 1 for numbers, and 
none exists for the nand function. 
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£<-0o0 

x/g 

1 

tt/E 

DOMAIN ERROR 
* / E 
t 

+ /ff 

0 


3>0 o ’ ’ 
x/g 

DOMAIN ERROR 
*/E 
t 

*/E 

DOMAIN ERROR 
tt/E 

t 

111 

DOMAIN ERROR 
+ /E 
t 


The identity elements (or the domain 
element exists) of all functions 
reduction operator and applied to an 
3 - 3 . 


error resulting when no identity 
when they are combined with the 
empty vector are shown in table 


SCAN OPERATOR 


The scan operator (\) applies the dyadic primi 
which precedes it to the argument. The scan 
cumulative reduction over arrays. The result of 
array of the same shape as the operand, in w 
corresponds to the result of the reduction over th 


tive 
oper 
this 
hich 
e fir 


scalar function 
ator performs a 
operator is an 
the nth element 
st n. elements , 


2 4 
30 

2 6 


VECTOR 
6 8 10 
+/VECTOR 

+ WECT0R 
12 20 30 
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Other examples of the scan operator are 


VICTOR 

2 4 6 8 10 

*\ZECTOR 

2 8 48 384 3840 

VEC+-1 1 1 0 0 0 1 
a \7BC 

1 1 1 0 0 0 0 

v\ygc 

1111111 

*\VEC . 

10 110 0 0 


The results obtained when the scan operator is applied to arrays other 
than vectors is discussed under the axis operator. 


AXIS OPERATOR 

The discussion of the reduction and scan operators described what 
happens when those operators are coupled with a dyadic primitive 
scalar function and applied to a vector. The reduction operator, 
however, also can be applied to arrays, which can be thought of as 
collections of vectors. For example, consider an array that has two 
axes; 


■>- AXIS 2 


t 

AXIS 1 


The columns extend along axis 1 and rows extend along axis 2, 



Reduction of an array can be defined as the vector of results produced 
by reduction of each of the column vectors or tne row vectors. 


The axis operator is signified by orackets C ] enclosing an 
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expression . The expression# when evaluated# yields the index of the 
axis. For example# 


ARRAY *-4 6p 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 
ARRAY 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 


+ /[1 ]ARRAY 


40 44 48 52 56 60 
+/12]ARRAY 
21 57 93 129 
+ \[l3^ff/3Y 


1 

2 

3 

4 

5 

6 

8 

10 

12 

14 

16 

18 

21 

24 

27 

30 

33 

36 

40 

44 

48 

52 

56 

60 


+ \[2]y4ff/?i4Y 



1 

3 

6 

10 

15 

21 

7 

15 

24 

34 

45 

57 

13 

27 

42 

58 

75 

93 

19 

39 

60 

82 

105 

129 


Note that the scan operator produces a result whose shape is the same 
as that of the argument while the reduction operator produces a result 
whose shape is the shape of the argument with the reduction axis 
removed. That is# the shape vector of the result has one fewer 
elements• 


If no axis operator is included with reduction and scan# these 


apply 

along 

the 

last 

axis 


ARRAY 




l 

2 3 

4 

5 

6 

7 

8 9 

10 

11 

12 

13 

14 15 

16 

17 

18 

19 

20 21 

22 

23 

24 


+/C ]ARRAY 



21 57 

93 

129 




+ \C 1 ARRAY 



1 

3 5 

10 

15 

21 

7 

15 24 

34 

45 

57 

13 

27 42 

5 8 

75 

93 

19 

39 60 

82 

105 

129 


The symbols / and \ may also signify reduction and scan (also 
compression and expansion)# respectively? and# in the absence of the 
axis operator# these operators apply along the first axis# as follows: 


+ ■/■ ARRAY 

40 44 48 52 56 60 


1 

+ \ ARRAY 
2 3 

4 

5 

6 

8 

10 

12 

14 

16 

18 

21 

24 

27 

30 

33 

36 

40 

44 

48 

52 

56 

60 
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If an axis operator is used with / or it signifies the nth from 
last axis ? as opposed to nth from first axis with / or \, 

See the discussions of the mixed functions reverse , rotate , compress , 
and expand for additional applications of the axis operator. 


INNER PRODUCT OPERATOR 

Sets of data can be arranged into vectors of the same shape to perform 
numerous useful computations. For example, if vector A represents a 
list of parts and B represents a list of prices, and A and B are the 
same shape, then the expression + /A*B would produce the total cost of 
inventory. 

Expressions of the same form using other functions also are useful. 
For example. 


jr 

2 4 6 8 10 

Y 


17 

0 

2 


4 3.95 8.95 10 

a /X-Y ^ - 


Comparison of X and Y 


+ / X-Y 


Number of agreements between X and Y 


The inner product operator (,) applies the two functions that enclose 
it to a left and a right argument to produce functions equivalent to 
the examples shown above. 

Thus, Afnl.fn2B is equivalent to lnl/Afn2B, For example, for 
vectors/scalars: 


A_ 

2 4 6 8 10 

A 

17 4 3.95 8.95 10 

A + . x B 

245.38 

+ /A*B 

2 4 5.38 

A* . *B 

4.91058931£28 
*/ A * B 

4.91058931£28 


When applied to arrays, the inner product operator extends to the last 
axis of the ieft argument and the first axis of the right argument . 
The lengths of the two axes must agree. The axes operated on by the 
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inner product operator are deleted and the shape of the result is the 
catenation of the remaining shapes of the operands# as for example# 

VEC 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

A<- 3 5p VEC 
B+- 5 4p VEC 


1 

A 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

1 

B 

2 

3 

4 


5 

6 

7 

8 


9 

10 

11 

12 


13 

14 

15 

16 


17 

18 

19 

20 



A+. 

*B 




175 190 205 220 

400 440 480 520 


625 690 755 820 

B»5p VEC 
B_ 

1 2 3 4 5 

A_ 

1 2 3 4 5 

6 7 8 9 10 

11 12 13 14 15 

A* . *B 

55 130 205 

A+BpVEC 
B+8pVEC 
A_ 

12345678 

B_ 

12345678 
A+ . xB 

204 

The inner product A+.xb is also known as the matrix product . Examples 
are 

VEC 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

A+BpVEC 
A_ 

12 3 4 

B00L£ 1 111100010100000 
B-*-4 4p BOOL 
_B_ 

1111 
10 0 0 
10 10 
0 0 0 0 
A+ . x B 

6 14 1 

B+ . *A 
10 1 4 0 

B+ ,xB 

3 12 1 

1111 
2 12 1 
0 0 0 0 
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Examples of other inner products: 


_A 

12 3 4 

B_ 

1111 
10 0 0 
10 10 
0 0 0 0 
A* .*8 

6 13 1 

gA ,-B 

0.0 0 0 
0 10 1 
0 0 10 
0 0 0 0 

■9A. = l 1 0 0 

0 0 0 0 

B -,xg 

112 1 
1111 
2 12 1 
0 0 0 0 


The preceding examples show that either argument can be of any rank, 
so long as the rank of the result is <63, and the last dimension of 
the left argument is compatible with the first dimension of the right 
argument, that is. 


((~lto4)=l + oS)vi e (~l4 Pl /l),lfB 


Thus, A+,xi is equivalent to +/A and l+.xA is equivalent to + /A, For 
example. 


30 

30 

30 

30 


A*- 2 4 6 8 10 

tlA 

A+ . x 1 
+jM 
1 + . * A 


OUTER PRODUCT OPERATOR 

The outer product operator is signified by the symbols and precedes 
the function to which it is applied. The outer product operator can be 
applied to any dyadic primitive scalar function. When the outer 
product is applied to a function, that function is evaluated for each 
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element of the left argument paired with each element of the right 
argument. For example, 


A 

2 4 6 

2 4 6 8 10 

A « , + B 


4 

5 8 

10 

12 


6 

8 10 

12 

14 


8 

10 12 

14 

16 



A ° . x B 




4 

8 12 

16 

20 


8 

16 24 

32 

40 


12 

24 35 

A ° . *B 

48 

6 0 


4 

16 

6 4 

256 

1024 

16 

256 

4096 

6 5 5 35 

1048576 

36 

1 296 4 

A 0 . < B 

65 56 

1679616 

60466176 

0 

111 

1 



0 

0 11 

1 



0 

0 0 1 

1 




A o . > B 




0 

0 0 0 

0 



1 

0 0 0 

0 



1 

10 0 

0 




These examples show that the shape of the result ot X°.fnY is equal to 
C^XlfpY, The expression (pX),p Y produces the shape for any arguments 
X and Y. 

MIXED FUNCTIONS 

There are five classes of mixed functions, grouped according to 
whether they are concerned with; 

* The structure of arrays, 

* Selection from arrays, 

* The generation of selection information, 

* Numerical calculations. 

* Transformations of data such as that between numbers and 
characters. 

These five groups of mixed functions are listed in tables 3-5 through 
3-9, Included in each table are the names of the mixed functions, the 
symbols used to denote the functions, a definition or example of each 
function# and restrictions on the ranks of arguments that may be used 
with each mixed function. 
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Table 3-5. Structural Mixed Functions 


NAME 

SYMBOL 

FORM 

DEFINITION 

Ravel 

’ 

,A 

Produces vector whose elements are 
the elements of the right argument in 
row major order. 

Shape 

P 

pA 

Produces vector whose elements are 
the dimensions of A. 

Reshape 

P 

ApB 

Reshapes the ravel of right argument to 
shape specified by left argument. 

Reversal 

<t> or 
© 

<t) A or 
© A 

Reverses elements in the right argu¬ 
ment. When (J> is used, elements along 
the last coordinate are reversed; with 
©, elements along the first coordinate 
are reversed. 

Rotate 

<t> or 

© 

A0B or 

AeB 

Causes elements of the right argument 
to be rotated. When cj> is used, ele¬ 
ments along last coordinate are 
rotated; with © , elements along first 
coordinate are rotated. 

Catenate 

,[] 

.[A] 

Joins two arrays along an existing 
axis. 

Laminate 

,[] 

A,[B] 

Joins two arrays along a new axis. 

Transpose 


$ A or 

A<SB 

Reverses the order of ( transposes ) the 
axes of an array. If used dyadically, as 

AbB, arranges axes of B to conform to 
argument A. 
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Table 3-6. Selection Mixed Functions 


NAME 

SPECIAL 

CHARACTER 

FORM 

DEFINITION 

Take 

T 

NfA 

Takes N elements from A. If N is 
positive, first N elements are taken; if 
negative, last N elements taken. 

Drop 


NiA 

Drops N elements from A. If N is 
positive, first N elements are dropped; 
if negative, last N elements dropped. 

Compress 

/ 

N/A 

Selects elements from an array as 
determined by boolean argument N. 

For each 1 in N, the corresponding 
element in A is selected; for each 0, it is 
ignored. 

Expand 

\ 

N\A 

Fills array with spaces (if alphabetic) or 
zeros (if numeric) depending on 
boolean argument N. 

Indexing 

[] 

A[] 

Selects elements from A depending on 
expression enclosed in brackets. If A is 

2 46 8 10, A[3] selects 6 if 1-origin 
indexing is in effect. 


Table 3-7. Selector Generator Mixed Functions 


NAME 

SYMBOL 

FORM 

DEFINITION 

Index 

generator 

i 

1A 

Produces first A integers in order, 
beginning with index origin in effect. 

Index of 

\ 

A i B 

Produces the index of first occurrence 
of B in A. 

Membership 

e 

Ae B 

Determines if each element of A is a 
member of B. 

Grade up 

k 

AA 

Sorts the elements of a vector in 
ascending order, returning indices. 

Grade down 

1 

1A 

Sorts the elements of a vector in 
descending order, returning indices. 

Deal 

? 

A?B 

Selects A random integers without 
replacement from iB. 
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Table 3-8. Numerical Mixed Functions 


NAME 

SYMBOL 

FORM 

DEFINITION 

Matrix 

inverse 

0 

BA 

Produces the inverse of a non-singular 
matrix. Columns of A must be linearly 
independent. 

Matrix 

divide 

m 

ABB 

Produces a result equal to 
( i B) + . x A. 

Decode 


AJ.B 

Computes the sum of all the elements 
of B raised to a power specified by the 
base value of A. If A is 2 and B is 1 2 3 

4 5, then A l B is 101- 

Encode 

T 

atb 

Converts the value of A into its 
representation in the number system 
specified by the base value of B. 


Table 3-9. Data Transformation Mixed Functions 


NAME 

SYMBOL 

FORM 

DEFINITION 

Execute 

i. 

±A 

Executes the character expression A. 

Format, 

monadic 

T 

TA 

Monadic form A produces character 
representation of A to current default 
printing precision. 

For example, 

A<^o1 

‘PI IS EQUAL TO ’,?A 

produces 

PI IS EQUAL TO 3.14159265 

Format, 

dyadic 

T 

ATB 

Produces result based on data B 
displayed in accordance with control 
argument A. 

For example, 

4 2T3.14159 

3.14 

Quad output 

□ 

□ «-A 

Generates carriage return/linefeed 
when displaying A. 

Quote quad 
output 

□ 

□<-A 

Outputs A with no carriage return/ 
linefeed. 

Quote quad 
input 

□ 

A<—E 

Reads a line of characters typed in by 
user and creates a character vector 
result. 

Quad input 

□ 

A<-D 

Evaluates a line of input from the 
terminals. 




















































Figure 3-2 contains a list of those mixed functions for which scalar 
and vector arguments may be substituted. 


1. A scalar may be used in place of a one-element vector: 

a. 

as left argument of 




reshape 

2p5 4* 

(>2)p5 


take 

4| 6 4* 

(>4)t 6 


drop 

“4| 6 

(.4)1 6 


expand 

1 \ ,6 

(>2) \ ,6 


transpose 

1<M 

(,1)0.4 


format 

6T4.5 

(,6)T 4.5 0 6*4.5 


rotate 

2(p A 

(,2)0A 

b. 

as right argument of 




execute 

l.*X’ 

J., ‘X’ 

2. A scalar is extended to conform to a vector: 


a. 

as left argument of 




compress 

1/ l 4 <-> 

1 1 1 1/14 


rotate 

1</>2 2 pi4 

1 1 cf, 2 2pi4 

b. 

as right argument of 




compress 

10 1/2 

10 1/222 


expand 

1 0 1 \ 2 ** 

1 0 1 \ 2 2 

3. A unit array is permitted in place of a scaler: 


a. 

as left argument of 




deal 

(,4)?5 

4?5 

b. 

as right argument of 




index generator 

,6 4> 

6 


deal 

2?,6 4* 

2?6 


Figure 3-2. Scalar-Vector Substitutions for Mixed Functions 


STRUCTURAL FUNCTIONS 

The structural functions consist of: 

* Ravel (,) 

* Shape (b) 
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# 

Reshape (b) 

* 

Reverse (4> 

or ©) 

* 

Rotate (4) 

or ©) 

# 

Catenate ( 

# C i) 

* 

Laminate ( 

#t ]) 

* 

Transpose 

($) 


For monadic structure functions# the argument may be of any type# 
numeric or character. For dyadic structure functions# the right 
argument may oe of any type# but the left argument (which serves as an 
index or other selection generator) must be numeric integer. 


SHAPE FUNCTION, The monadic shape function (£) applied to an array 
argument# yields the shape of the array as a vector whose elements are 
the dimensions of the array. For example# 


5 

2 

1 


ARRAY 
1 2 
3 4 

5 6 

7 8 

9 10 

p ARRAY 

2 

p qARRAY 


p qqARRAY 


The result produced by p ARRAY contains one component for each axis of 
ARRAY, For example# 5 2 (above) signifies that ARRAY is a matrix of 
five rows and two columns. Thus# the expression ppARRAY produces the 
rank of ARRAY# and ppp ARRAY produces the shape of the array resulting 
from the expression pp ARRAY, (Note that pp^oARRAY is always 1,) 
Figure 3-3 illustrates arrays from ran* 0 (scalar) up to ranic 6, Note 
that the function p applied to a scalar yields the empty vector . Note 
also that a one-dimensional array is rank 1# two-dimensional is ranx 
2# and so forth. 


RAVEL FUNCTION, The monadic ravel function (#) applied to an array # 
produces a vector whose elements are the elements of the array in row 
major order. For example# 

ARRAY 

12 3 4 

5 6 7 8 

9 10 11 12 

13 14 15 16 

VECTOR*- .ARRAY 
VECTOR 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 1 5 16 
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If the ravel function is applied to a vector argument, the result is 
equivalent to the argument itself. If applied to a scalar argument, 
the ravel function produces a vector of length 1, 


40«-l 

oAO 

ppAO 


RANK 0 


A l«-4p T /S' 
p A 1 

PpAl 


RANK 1 


RANK 3 


A 2«-4 4o VEC 
oA2 

ppA2 


A 3«-4 4 4p VEC 
p4 3 
4 4 

p p A 3 


4 4<-4 4 4 4 pVEC 
pA 4 

4 4 4 

p p A 4 


4 5«-4 4 4 4 4 pVEC 
p 4 5 

4 4 4 4 

Op A 5 


46«-4 4444 4p/?C 
p A 6 

4 4 4 4 4 RANK 6 

p o A S 


RANK 4 
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RESHAPE FUNCTION, The dyadic reshape function C^) reshapes the ravel 
of its right argument to the shape specified by its left argument. For 
example, 

A_ 

I 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

4 5 p A 

1 2 3 4 5 

6 7 8 9 10 

II 12 13 14 15 

16 17 18 19 20 

For the reshape expression L^R, if the total number of elements in the 
right argument F is equal to the total number of elements required by 
the left argument L (as above), the ravel of h p R is equal to the ravel 
of R (the elements are equal). If L specifies a value that requires 
less elements than are contained in R, only the first x/l elements of 
R are used; if L requires more elements than are contained in R, the 
elements of R are repeated cyclically . For example, 

2 3d A 

12 3 

4 5 6 

5 6 p ^ 

1 2 3 4 5 5 

7 8 9 10 11 12 

13 14 15 16 17 18 

19 20 1 2 3 4 

5 6 7 8 9 10 

Any one or more of the axes of an array may have zero length, thus, 
Qpkt 0 3pA, and 0 0 Op A are all valid. Such an array is called an 
empty array . If A is a numeric empty vector , then ApB is a scalar 
containing the first element of ravel B, 


REVERSAL FUNCTION, The monadic reversal function is denoted by the 
symbols <j> or © and is used to reverse the elements along a particular 
axis of the argument. For example, 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 

When <|>A is used, the reversal occurs along the last axis (the columns 
are reversed) of the array. For example, 

ARRAY 

12 3 4 

5 6 7 8 

9 10 11 12 

13 14 15 16 

$ ARRAY 

4 3 2 1 

8 7 6 5 

12 11 10 9 

16 15 14 13 
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When the © symbol is specified, the reversal occurs along the first 
axis (the rows are reversed), as for example, 


9 ARRAY 

13 14 15 16 

9 10 11 12 

5 6 7 8 

12 3 4 


The auxiliary axis operator can be applied to the reversal function to 
specify a particular axis for the reversal. For example, 


jjjJ ARJiM 

13 14 15 16 

9 10 11 12 

5 6 7 8 

12 3 4 

4>C 2 3 ARRAY 
4 3 2 1 

8 7 6 5 

12 11 10 9 

16 15 14 13 


The previous example shows that <J>A is equivalent to <|>[ppA]A or c X J A, 

and ©A is equivalent to ©UJA, 


ROTATE FUNCTION. The dyadic rotate function is denoted by the symbols 
4> or © and rotates elements in the right argument by amounts specified 
in the left argument. 

If S is a scalar or unit and V is a vector, then S4>V results in a 
cyclic rotation of V, as follows: 

For 1-origin indexing, s<kV - 7[i+(p7)~i+5+ip7] 


For 0-origin indexing,5$7 = 7[(p7)IS+ip7] 


General expression: s<t>7 = 7[QI0+( p7) I ( -DIO) + Si p7] 

The axis operator can be used with the rotate function to specify the 
axis along which the rotation is to be performed. The form is 

S4>Cn] V 
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For general arrays, the vector along the nth axis of V is rotated as 
signified by the corresponding element of S, and the shape of S must 
equal the remaining dimensions of V. For example. 


VECTOR 

1 2 3 4 5 5 7 8 9 10 11 12 13 14 15 16 

X +4 4p VECTOR 






1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 


1 2 

3 

44>ClH 

5 

10 

15 

4 

9 

14 

3 

8 

13 

2 

7 

12 

1 

6 

11 

16 


1 2 

3 

41> [ 2 ] Y 


2 3 4 1 

7 8 5 5 

12 9 10 11 

13 14 15 16 


The symbol © can be used to signify rotation along the first axis of 
an array and therefore A©B is equivalent to AeCljB, as follows: 


1 2 

1 

6 

11 

16 

6 

11 

16 

1 

2 

8 

14 

4 


7gOil60/gC 

3456789 10 

4 5 o! 7RCOB 
2 3 4 5 

7 8 9 10 

12 13 14 15 

12 3 4 

(i5 l&B 

12 2 4 10 

1 3 9 15 

2 8 14 4 

7 13 3 5 

(i4)0[13 5 

3 4 5 1 

9 10 5 7 

15 11 12 13 

16 1 2 3 


11 12 13 14 15 16 
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CATENATE FUNCTION. The dyadic catenate function (#) is used to join 
two arrays along an existing coordinate. The number ot elements in 
the resulting array is equal to the total number of elements in the 
two arguments. For example# 

A 


1 

2 

3 

4 

5 






6 

7 

8 

9 

10 






11 

12 

13 

14 

15 






16 

17 

18 

19 

20 







J3 









21 

22 

23 

24 

25 






26 

27 

28 

29 

30 






31 

32 

33 

34 

35 






36 

37 

38 

39 

40 







A , B 









1 

2 

3 

4 

5 

21 

22 

23 

24 

25 

6 

7 

8 

9 

10 

26 

27 

28 

29 

30 

11 

12 

13 

14 

15 

31 

32 

33 

34 

35 

16 

17 

18 

19 

20 

36 

37 

38 

39 

40 


A numeric vector cannot be catenated with a character vector . 

The axis operator can be applied to the catenate function to signify 
the axis along which the arguments are to be catenated. For example# 



A 





4 

6 

8 10 


12 

14 16 


B+- 3 3o A 





_B 





2 

4 

6 




8 

10 

12 




14 

16 

18 





B, 

[ 1 3 B 




2 

4 

6 




8 

10 

12 




14 

16 

18 




2 

4 

6 




8 

10 

12 




14 

16 

18 





B, 

[2]5 




2 

4 

6 

2 

4 

6 

8 

10 

12 

8 

10 

12 

14 

16 

18 

14 

16 

18 


Arrays of different shapes can be catenated along an axis n if they 
have the same number of elements along that axis and they differ in 
rank by 1, For example# 

(2 3pil00)»2 10p<|>i(100) 

123 100 99 98 97 96 95 94 93 92 91 

456 90 89 88 87 86 85 84 83 82 81 
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Sonne other examples 


ARRl 

2 4 6 

A RR 2 


2 

4 

6 

8 



10 

12 

14 

16 



18 

2 

4 

6 




ARR 3 





2 

4 

6 

8 

10 


12 

14 

16 

18 

2 


4 

6 

8 

10 

12 


14 

16 

18 

2 

4 


6 

8 

10 

12 

14 


16 

18 

2 

4 

6 


8 

10 

12 

14 

16 


18 

2 

4 

6 

8 


10 

12 

14 

16 

18 


2 

4 

6 

8 

10 


12 

14 

16 

18 

2 


4 

6 

8 

10 

12 



ARR 1 

t ARR 2 



2 

2 

4 

6 

8 


4 

10 12 

14 

16 


6 

18 

2 

4 

5 



ARR 2 

, ARR3 



2 

2 

4 

6 

8 

10 

4 

12 

14 

16 

18 

2 

6 

4 

6 

8 

10 

12 

8 

14 

16 

18 

2 

4 

10 

6 

8 

10 

12 

14 

12 

16 

18 

2 

4 

6 

14 

8 

10 

12 

14 

16 

16 

18 

2 

4 

6 

8 

18 

10 

12 

14 

16 

18 

2 

2 

4 

6 

8 

10 

4 

12 

14 

16 

18 

2 

6 

4 

6 

8 

10 

12 
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A scalar or unit argument is repeated along the appropriate axis when 
used as an argument in the catenate function. For example# 


A+l 

ARR7 

2 4 6 8 

10 12 14 16 

18 2 4 6 

ARR7 , [ 1 3 
2 4 6 8 

10 12 14 16 

18 2 4 6 

1111 
ARR7 ,17]A 
2 4 6 8 1 

10 12 14 16 1 

18 2 4 5 1 


LAMINATE FUNCTION, The dyadic laminate function is denoted by a comma 
followed by the lamination coordinates enclosed in brackets #1 3. The 
lamination coordinate is a non»integral. index number signifying a new 
coordinate between existing coordinates along which the lamination is 
to occur. 

The laminate function joins two arrays of identical rank and shape 
along a new axis? this new axis is indicated by the index number. For 
example# if the new axis is to be inserted between existing axes 1 and 
2# the index number must be between 1 and 2 ; for laminating between 
existing axes 2 and 3 # the index number must be between 2 and 3 # and 

so forth. If the new axis is to be inserted before the existing first 
axis# the index number must be between Q and 1 , (If 0-origin indexing 
is in effect# subtract 1 from the above index numbers,) If the new 
axis is to be added after the existing last axis# the fractional index 
number must exceed the last axis number by a fractional amount between 
0 and 1 • 
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Examples of lamination are 


ABCD 
EFGH 
IJKL 
ME OP 

J3 

12 3 4 
5678 
9012 
3456 

C+A,L .5 ]HOC 

ABCD 
EFGH 
IJKL 
ME OP 


F,+A ,[2.5] BOE 
A1 ' ~~~ 

52 
C 3 
54 

E 5 
F 6 
GO 
HB 

1 9 
JO 
K 1 
17 


1234 

5678 

9012 

3456 

D+A, [1.53505 

ABCD 

1234 

EFGH 
567 8 


M3 
H 4 
0 5 
P6 

PC 

2 4 4 

P 5 

4 2 4 

Pg 

4 4 2 


IJ KL 
9012 

ME OP 
3456 


The shapes of the resulting arrays in the above examples are 2 4 4# 4 
2 4 1 and 4 4 2 , Note that the resulting array In each case is one 
rank greater than the rank of A and B, and has the same shape except 
for the insertion of the new axis. The 2 in 2 4 4 # 4 2 A, and 442 
shows where the new axis was inserted and also denotes the length of 
the new axis. 
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When used with the laminate function# a 
extended as necessary. For example# 


scalar or unit argument is 


TRANSPOSE 
character 
element 
il;2) in 


A*-3 3 o'ABCDEFGHI' 

B+' 1 ' 

Jl 

ABC 

DBF 

GHI 

_S 

1 

A % i 2.5]B 
>41 
01 
Cl 

Dl 

El 

FI 

G1 
HI 
II 


FUNCTION, The dyadic transpose function is signified by the 
$ and reverses the order of (transposes) the axes of A, An 
[I,JJ in the result is equal to [J#l] in the argument. Thus# 
the argument is equal to C2?1J in the result. For example# 


ABC 

DEF 

GHI 

ADG 

BEH 

CFI 

ADG 

BEH 

CFI 

B 

B 


A 


2 1M 


RESULT*- 2 l^AORESULT 


^ [ 1; 2 ] 
RESULTt 2 ; 1 ] 


Monadic Transpose Examples 
A 

12 3 4 

5 6 7 8 

9 10 11 12 

P A 

3 4 

15 9 

2 6 10 

3 7 11 

4 8 12 

HOWHOWQLDCOW 
8*-4 3oB 

A 

HOW 

HOW 

OLD 

COW 

HNOC 

OOLO 

WWDW 
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The dyadic expression 2 1 §A reverses the order ot the axes of A. tor 
example. 


ABC 

DEF 

GET 

§ A 

ADG 

BED 

CFT 

2 lM 

ADG 

BEH 

CFI 


SELECTION FUNCTIONS 

The selection functions Include: 

* Take (+) 

* Drop CO 

* Compress (/) 

* Expand (\) 

* Indexing ([ J) 

The arguments whose elements are being selected may be any type of 
array, while the other argument, which specifies the selection, must 
be numeric integer or bit , For the expand and compress functions, the 
numeric values must be boolean. 


TAKE FUNCTION, The take function (+) selects elements from an array. 
The elements selected are dependent on the numeric left argument. If 
the values of N are positive , the first N elements are selected? if 
the values of N are negative , the last N elements are selected. If N 
is greater than the number of elements in the array, the result is 
filled with zeros if the array is numeric or spaces if the array is 
alphabetic, 
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Examples of the take function being applied to a vector are: 


A +2 4 6 8 10 
2 ±A 

2 ^ 

4JM 

2 4 6 8 

§±A 

2 4 6 8 10 0 

8 + /! 

2468 10 000 

~ 8± A 

0002468 10 



S<-’ 12 345 ’ 


2 + 8 

12 

4 + 8 

1234 



6 + 8 

12345 

’ A ’ ,8+8 

A 12 3 4 5 

’ A ’ , " 8 + 8 

A 12345 


Note that the zeros (or spaces) are added on the right if the left 
argument is positive and on the left if the left argument is negative , 

If the left argument is a vector* then the expression V + A is valid 
only if V has one element for each axis in array A, For example* if A 
is unit or if A has two axes* then V can have only two elements. 

The rank of the result of the take function is the same as the rank of 
the right argument. 


DROP FUNCTION, The drop function (4) is the opposite of the take 
function* and removes specified elements from an array, if the number 
of elements dropped from an array eguals or exceeds the number of 
elements along the axis* the result has zero length for that axis. 

Examples of the drop function are: 


2 4 

6 8 
10 

2 4 

2 


5 8 
2 4 4 
10 

4 ±A_ 

~7\A 

6 

" 44 /! 


10 
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The rank of the result of the drop function is the same as the rank of 
the right argument. 


COMPRESS FUNCTION, The compress function (/) selects elements from an 
array as determined by a boolean argument. For each 1 in the boolean 
argument, the corresponding portion in the array is selected? for each 
zero in the boolean argument, the corresponding portion in the array 
is not selected. For example, a boolean argument 10101 selects 
the first, third* and fifth elements of an array as follows: 


2 4 6 8 10 

1010 1/A 
2 6 10 


The dimensions of the arguments must agree, except that scalar 
arguments are extended. Thus, 1/A equals A and 0/A equals an empty 
vector, as shown below: 


_A_ 

2 4 6 8 10 
1 /A 

2 4 6 8 10 
0/A 

00/A 

0 
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The axis operator can he used with the compress function. For an 
expression A/lnjB, the shapes of A and B conform if 0 A equals (pB)lri], 
or A is a unit. An example, 


A *-44p 116 


A_ 

12 3 4 

5 5 7 8 

9 10 11 12 

13 14 15 16 

1 0 1 0/[1 ]A 

12 3 4 

9 10 11 12 

10 1 0/[2 1A 
1 3 

5 7 

9 11 

13 15 

5-*-4 4p’ ABCDEFGHIJKLMNQP'OB 

ABCD 
EFGH 
IJKL 
ME OP 

1 0 1 0 / [ 1 3 5 

ABCD 

IJKL 

1 0 1 0/C21-8 
AC 
EG 
IK 
MO 


The / symbol can be used to denote compression along the first axis, 
as follows, 

A 

12 3 4 
5 6 7 8 


9 

10 

11 

12 

13 

14 

15 

16 


1 0 

1 

OtA 

1 

2 

3 

4 

9 

10 

11 

12 


The rank: of the result of the compress function equals the ran* of the 
right argument, and ^result, along the axis of compression equals 
♦/left argument* 
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EXPAND FUNCTION, 
identity elements 
is numeric, the 
expanded? if the 
spaces. 


The expand function (\) expands an array, filling 
as determined by a boolean argument. If the array 
identity elements are zeros where the array is 
array is alphabetic, the identity elements are 


Examples of the expand function are: 


The axis 


X+'THEQUICKBROWNFOX' 


O1 110111110111110111 
Y\X * 

THE QUICK BROWN FOX 
0 5 ±qXOC 

THEQ 

UICK 

BROW 


N FOX 
THEQ 


10101 1\C 


T 

H 

EQ 

V 

I 

CK 

B 

R 

OW 

N 

F 

OX 

T 

H 

EQ 

oper< 

ator can be used with 


A 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 


1 1 

0 1 

0 1 \ [ 1 ] .4 

1 

2 

3 

4 

5 

6 

7 

8 

0 

0 

0 

0 

9 

10 

11 

12 

0 

0 

0 

0 

13 

14 

15 

16 


1 1 

0 1 

0 1\[2 ] 4 

1 

2 

0 

3 0 4 

5 

6 

0 

7 0 8 

9 

10 

0 

11 0 12 

13 

14 

0 

15 0 16 


the expand function. 


For 


example, 
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The \ symbol 

can 

be u 

sed to denote expansion along the first axis as 

follows, 





A 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 


1 0 

1 0 

1 1\A 

1 

2 

3 

4 

0 

0 

0 

0 

5 

5 

7 

8 

0 

0 

0 

0 

9 

10 

11 

12 

13 

14 

15 

16 


The rank of the result of the expand function is equal to the rank of 
the right argument, and the length of the result along axis of 
expansion is p left argument. 


INDEXING FUNCTION, The indexing function is denoted by brackets and 
may be l-origm or o-origln as specified by DIO, For 1-origin 
indexing, the function All] indicates the Ith element of A; for 
0-origin, All] indicates the x+l element of A, For example, 


3 

6 


4 

7 


A-1 234567890 

oro-i 

A [ 3 J 

ACS] 

DIO± 0 
A[_3] 

AC 6] 


If a vector V is used within the brackets, such as AIVJ, elements are 
selected from A as indicated by the elements of V, For example, 


7-1 3579 
' ABCDEFGHIJKLMNOP' [7] 

ACEGI 
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If the value specifies an element outside the range of A, an error 
message results, in general, the shape of A113 is the shape of I, 
Thus, if I is scalar, the result of A Cl 3 is scalar; and if 1 is an 
array of any rank, then A C13 is an array of that rank. For example, 


A+' ABCDEFGHIJKLMNOP' 

Ai 4] 

D 

/«- 3 5pl 234234134124321 

A.vn 

ABCDB 

CDACD 

A8DCB 


If A is a matrix, it must be Indexed in the form CR;CJ, The first 
index, R, signifies the row (or rows) and the second index, C, 
signifies the column (or columns). Thus, A L 2;1J selects the element 
from the second row, column 1, if either index is a vector, the rows 
or columns specified by all values of the vector are selected. For 
example. 


ABCD 

EFGH 

IJKL 

MNOP 

ABCD 

A-+-4 4 o .4 

ABCD 

EFGH 

IJKL 

MHO? 

Ai 2 3;1] 

El 

Aj 4 3 2;2 3 4] 

NOP 

JKL 

FGH 


In general, the shape of the result of A[R;C) is ( ( oF),^C, Thus, if R 
and C are botn vectors, the result is a matrix; if R and C are both 
matrices (rank 2), the result is an array of rank 4. Similarly, if R 
and C are both scalars, the result is scalar; if R is vector and C 
scalar, or vice versa, the result is a vector. 
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Examples 


_A_ 

ABCD 

EFGH 

IJKL 

MNOP 

A [ 2 ; 3 ]-* -Both scalars 

G — 

A [ 2 ; 3 4 2 - Scalar and a vector 


GHF 







A [2 

4; 2 

3 

t —1 

Both vectors 

FGH 






HOP 







P+ 2 

2 p 2 

3 

1 4 



02 

2 p 4 

1 

3 2 



_R 

2 3 

1 4 

C_ 

4 1 

3 2 

A [ R * C ]-*- Both matrices 

HE 

GF 

LI 

KJ 


DA 

CB 

PM 

OH 


Omitting one of the members of tne index denotes all rows or columns* 
depending on which is omitted. Thus* A[;CJ specifies all rows (the 
row index is omitted)* and A LR; 3 specifies all columns (the column 
index is omittea). For example* 


A 


ABCD 
EFGH 
IJKL 
MHO P 

t—i 





DHLP 

[ 4 ; ) 





MNOP 






The left-hand 

part of 

an assignment 

expression may 

be 

an indexed 

expression as 

long as 

it is of the 

correct shape 

and 

size. For 
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example, to change elements 3 and 10 of array A to the values 4 and 2, 
respectively, 


A*'ABCDEFGHIJKLMNQP' 
Ai3 42 * 

]_ 

AB^DEFGHI2KLMN0P 


SELECTOR GENERATOR FUNCTIONS 

The selector generator functions consist of: 

* Index generator (x) 

* Index of (x) 

* Membership ( e ) 

* Grade up ( 4 ) 

* Grade down (?) 

* Deal (?) 

Each of these selector generator functions produce integer results 
which are useful in a variety of applications as discussed for each 
function following. 


INDEX GENERATOR, The index generator is signified by the symbol i and 
can have as an argument a non-negative scalar integer N to produce a 
vector containing N integer values in order, beginning with the index 
origin in affect. For example, X6 produces the vector 1 2 3 4 5 6 if 
the index origin is 1 , and 0123 4 5 if the index origin is 0 , If 
zero is used as the argument, an empty vector is produced, 

INDEX OF, When the i function is used dyadically with a vector and a 
scalar argument In the form VECTGRxSCALAR, the index generator 
function results In the index of the first occurrence of each element 
of VECTOR in SCALAR, 

If the scalar is different from all elements of the vector, a value 
one greater than the index of the last element of VECTOR is returned, 
as for example, 

VECTOR*'ABCDEF' 

SCALAR*'J' 

VECTORxSCALAR 

7 

Note that the result of VECTORXSCALAR is origin dependent. 
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MEMBERSHIP FUNCTION. The membership function is denoted by the symbol 
e, if A is an array# the expression A^B produces an array with the 
same shape as A but consisting of boolean values only (B may be of any 
shape). The elements of the result have a value of 1 if the 
corresponding element of A also exists in B# and a value of 0 if the 
corresponding element of A does not exist in B, For example# 


_A_ 

ABCD EPGH IJKL MNOP QRST UVWX 
JL 

BAD NEWS 
AeB 

110111000100001010010010100 
1 0 


The arguments of the membership function do not have to be of the same 
shape or ran*. See below. 


A 

ABCD EFGH IJKL WOP OR ST UVWX 
BAD NEWS 

5 6 p AOC 

ABCD E 
FGH TJ 
KL MNO 
P QRST 
UVWX A 

CeB 

110 111 
0 0 0 1 0 0 
0 0 10 10 
0 10 0 10 
10 0 10 1 
D+- 2 4 o 90.0 

BAD 

NEWS 

CeD 

110 111 
0 0 0 1 0 0 
0 0 10 10 
0 10 0 10 
10 0 10 1 


GRADE FUNCTIONS, The two grade functions# grade up (4) and grade down 
(t)# apply only to numeric vectors and are sorting functions. The 
grade up function sorts the elements of a vector in ascending order 
and produces a vector of the same length as the argument# containing 
the indices of the sorted elements of the argument. For example# if 
A^XG 6 1 3 2# ^A produces 3 5 4 2 1# in which the index of the lowest 
value of A is first# the index of the next lowest value is second, and 
so forth. In order to access the elements of A in ascending order# 
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rather than the indices of the elements, the expression AUAJ is used. 
For example, 

A +10 5321 

M 

5 4 3 2 1 

A [ iA ] 

1 2 3 5 10 

If two or more elements of a vector are the same, the order is 
determined by their positions in the vector. For example, 

A+-S 6 6 4 3 6 
jM 

5 4 1 2 3 6 

The grade down function (f) produces a vector of indices of the 
elements of a vector- sorted in descending order. Equal elements are 
sorted according to their position in the vector just as they are for 
the grade up function. 

Examples of the grade down function are; 

A*-3 10 6 1 2 

JM 

2 3 15 4 

All A] 

10 6 3 21 

A+3 10 3 3 6 

1A 

2 5 13 4 

Note that the results of grade up and grade down are origin dependent . 

DEAL FUNCTION. The deal function (?) selects pseudo-random integer 
selections from the vector of integer values produced by the index 
generator function (i). no two of the selections are the same. Both A 
and B are limited to scalar or unit array arguments. Each selection 
from the ib set of integers is in accordance with the method described 
for the roll function. That is, A?B produces A integers selected in 
random fashion without replacement from the set of iB, A?B is origin 
dependent, 


Examples of the deal function are: 

6 ? 9 

2 4 5 3 1 3 

6 ? 3 

DOMAIN ERROR 
6 ? 3 

+ 

3 ? 5 

3 5 1 

4? 6 

6 2 5 4 
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To select N elements at random from a vector v# the following form can 
be used: 

VCN ?pV) 

NUMERICAL FUNCTIONS 

The numerical functions consist of: 


* 

Matrix 

inverse (S) 

* 

Matrix 

divide (®) 

* 

Decode 

U) 

* 

Encode 

(T) 


The numerical functions apply only to numeric arguments and produce 
only numeric results. 


MATRIX INVERSE AND MATRIX DIVIDE FUNCTIONS, The matrix inverse and 
matrix divide functions are both denoted by the domino symbol (®), 

The matrix inverse function is of the form 

®A 

This function produces the inverse of a non-singular matrix , (A 
non-singular matrix is one in which all rows and all columns are 
linearly independent. For example# 


2 2 2 2 
2 2 2 2 

is a singular matrix,) 


An example of matrix inverse is 


A 

12 3 4 

2 3 4 5 

3 4 5 6 

4 5 6 7 

§A 

" 4.270079647515 
8.006399338515 
” 3.202559735515 
" 5.337599558514 


3.469439713515 

8.006399338515 

5.604479536515 

1.067519912515 


5.871359514515 
8.006399338515 
1.601279868515 
3.736319691515 


5.07071958515 

8.006399338515 

8.006399338514 

2.135039823515 


The result is such that (®A)+.xA yields an identity matrix Ctnat is# 
produces a left inverse ). 


The matrix divide function is of the form 


AEEB 
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The matrix divide expression 


x^aeb 


can be used 


0 

2 

0 


to 


1 

1 

1 

1 


1 

1 

0 

0 


1 

0 

0 

0 


4 

4 

4 


solve systems 

JL 

0 10 

10 0 
110 
111 
JM 

1 ~1 0 
0 10 
"l 10 
0 “l 1 
4+ . xjjj/l 
0 0 0 

10 0 
0 10 

0 0 1 

g<-2 4 6 8 

jr 

2 2 
4 + ,xjr 
6 8 

(lyQ + . xg 
2 2 


of linear equations. 


C +4 2 p1 2 3 4 2 


1 

3 

2 

6 


1 

3 

2 

6 

2 

1 

*1 

4 


2 

4 

4 


8 

>?+ . x/? 

2 

4 

4 

8 

(HM ) + . xC 
2 
2 
0 
4 


For example# 

4 5 8 


The matrix inverse and matrix divide functions apply to singular and 
non-square matrices# and to vectors and scalars# but not to arrays of 
rank greater than 2 (this produces a rank error). The expression 

HA 


will produce a result only if A is a non-singular array and the 
columns of A are linearly independent. 


Similarly# the expression 
R^AHB 

will produce a result only if: 

* A and B have the same number of rows, 

* The columns of B are linearly independent, 

A vector argument is treated by matrix inverse and matrix divide as a 
one-column matrix and a scalar argument is treated as a matrix of 
1 1, For scalar arguments A and B# the expression HB is equivalent 
to rB and the expression AHB is equivalent to A^B# except that 0H0 
produces a domain error (whereas 0 t 0 does not). 
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DECODE FUNCTION, The dyadic decode ( base value ) function ( 1 ) 
evaluates two arguments and computes the sum of all the elements of 
the right argument raised to a power specified by the base value of 
the left argument. For example, if A-*-5 2 8 3 7 and B«-i 2 3 4 5, then 
AiB equals 7b8 . 

If the left argument is scalar or unit, the scalar value is extended 
for all the elements of the right argument, as follows: 

A + 2 

B+- 8 8 10 2 8 10 
AlB 

498 

The decode function is extended to arrays as follows: each of the 
vectors along the last axis of the first argument is applied to each 
of the vectors along the first axis of the second argument . If either 
of the axes is of length 1, it will be extended as necessary to match 
the length of the axis of the other argument. 

Examples of the decode function are: 

A+-Q 

B+- 1 7 7 7 7 7 
AlB 

65535 

818 

65535 

A*- 4 4p8 
g<-4 4 p 2 

A 

8 8 8 8 
8 8 8 8 
8 8 8 8 
8 8 8 8 
JL 

2 2 2 2 
2 2 2 2 
2 2 2 2 
2 2 2 2 
AlB 


1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 


ENCODE FUNCTION, The dyadic encode ( representation ) function (t) is 
the inverse of the decode function for some arguments. For example, 

A +8 88888 
B+l 77777 
AlB 

6 5 5 3 5 

T6 5 5 3 5 

1 7 7 7 7 7 
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The above is not true when the left argument is scalar and the right 
argument is vector. For example# 

A+8 

3+1 77777 
AlB 

65 535 

ATS 5 53 5 
7 

The encode function applies to arrays in the same manner as the decode 
function. That is# each vector along the last axis of the left 
argument is applied to each of the vectors along the first axis of the 
right argument . For example# 


A + 4 4 p 8 
5-*-4 4 p 2 
C+AlBOC 


1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 

1170 


DATA TRANSFORMATIONS 

The two data transformation functions are format and execute , The 
format function transforms numeric data in its argument to a character 
representation of this data. In general# the execute function can be 
considered the inverse of format# that is# it produces a numeric 
result from a character argument. 


EXECUTE FUNCTION, The execute function# denoted by the symbol ±, is 
both monadic and dyadic and applies to character right arguments and 
numeric left arguments. The character argument can be scalar# vector 
or unit. 

The execute function considers its character argument to be an APL 
expression and it executes this expression. If the argument does not 
constitute a well-formed APL expression# an error results. Note that 
only valid APL expressions can be used as arguments; system commands 
are invalid arguments , 

An empty vector or one containing only spaces can be used with execute 
if no assignment arrow is placed to the left of the execute character# 
as for example# 

A+-1 1 ' 

VALUE ERROR 

A*-± ’ ’ 

+ 

jl! _i 

Domain errors result if a non-character argument is used as the right 
argument of the function. 
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FORMAT FUNCTION. Format (*) is a monadic or dyadic function which 
converts numeric data to character arrays. 


Monadic Format. The monadic format function is of the form: 

▼ A 

The result of the monadic format function looks identical to the 
result produced by the argument without the format function# however# 
the format function converts the data to a character representation# 
as follows: 

'PI IS EQUAL TO *,voi 
PI IS EQUAL TO 3.141592653589793 

The argument A may be numeric or character. Numeric values are 
displayed in accordance with the print precision in effect Csee 
Section IV). The display converts to scaled form if any of the numbers 
in the data are such that the number of significant digits is greater 
than the precision in effect. 

Examples of monadic format are: 

A-*- 3 4 p6 

WA 

6 6 6 6 

6 6 6 6 

6 6 6 6 

A-*- 2 4p 2 3* 8 

WA 

7.831098528510 7.831098528510 7.831098528510 7.831098528510 

7.831098528510 7.831098528510 7.831098528510 7.831098528510 

4-4 So'ABCDEFGHIJKLMN0PQRSTU7WX' 

WA 

ABODE 

FGHIJ 

KLMNO 

PQRST 

Dyadic Format, Dyadic format is of the form 
A? B 

where A is the control argument and B is the data argument. 

The data argument# B# may be any APL expression that produces a 
result. 

* If 8 is empty (at least one element of p B is zero)# the result is 
the same shape as B except that it is always of type character, 

* If B already is a character variable# the result is a copy of B. 

* If B is scalar# it is treated as a one-element vector, 

* If B Is an array of rank 2 or greater# it is formatted according 
to the contents of argument A, 
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CONTROL PAIRS, A control pair describes bow to format a number by 
giving the number of characters available for the result# the type of 
formatting# and the precision of the formatted number. 


Width Control. Tne first number in the control-pair is called the 
width. This number must be an integer between 0 and 32767. The width 
controls how many characters the resultant formatted output will 
occupy. A width value of zero causes the minimum number of characters 
to be used such that there are two spaces in front of the number. If 
the width allows more characters that the formatted number requires# 
spaces are added on the left. 


Shape and Precision Control. The second number in a control-pair is 
called the precision . The sign of the precision controls whether to 
format the number in decimal form or in scaled form. If precision is 
positive# the data is displayed as a sign (no sign for positive data)# 
followed by the integer portion of the data# followed by a decimal 
point, followed by the fractional part of the data. 


The magnitude of precision controls how many fraction digits to 
return. If the precision is zero# no fraction digits or decimal point 
are displayed. All numbers are rounded or padded with zeros to obtain 
the proper number of fraction digits. 


If the precision of the control-pair is negative # the data is 
formatted as a sign (no sign for positive data), a one-digit 
characteristic# the mantissa digits# an 'E # followed by an exponent 
sign (no sign if positive)# and two exponent digits. 

For example# 

2.3462E02 


The number of mantissa digits displayed is controlled by the absolute 
magnitude of precision. The result is rounded or padded with zeros to 
fit the precision specified. If the precision value is "1# the 
characteristic digit is returned with no decimal point ( the E(sign)xx 
is returned). If the exponent is ^0# a trailing blank replaces the 
leading sign. 


Control-Pair Formation, Dyadic format requires one control-pair for 
each column in the data. It is possible# however# to specify the 
control argument as a scalar# unit# one-element vector# two-element 
vector# or a vector with one control-pair (two elements) for each data 
column. When the control variable is a scalar# unit# or one-element 
vector* then it is treated as a one-control-pair with a width value of 
zero. If the control variable has only one control-pair# the 
control-pair is used on all columns. Note that with dyadic format# the 
precision for at least one control-pair must be specified. 
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Dyadic Format Conditions. There are several conditions controlling 
dyadic format, as follows: 

1, If the resulting formatted output is a vector and the width 
value is zero, any leading blanks are omitted. This is done by 
not allowing the normal column separation spaces to be placed in 
front of the first column. 

2, The rounding process is performed on the absolute magnitude of 
the number, thus negative numbers round differently than 
positive numbers, 

3, There are several conditions under which the dyadic format will 
generate errors: 

a. Domain Error 

1) One of the numbers in the data variable would not fit 
into the specified width, 

2) Tne width portion of one of the control-pairs was 
negative, or was greater than 32767, or was not an 
integer. 

3) The precision portion of one of the control-pairs was 
not in the range “32768 to +32767, or the value was not 
an integer, 

b. Length Error 

1) The number of elements in the control variable is not 
one, two, or the number of data columns times two. 

c. Rank Error 

1) The control variable is higher dimension than a vector, 
unless it is a unit. 


Note: See Section XI for a further discussion of errors. 
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Examples of dyadic format with control-pairs are 


A +-6 6p3421.789473 
J_ 

3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 

3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 

3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 

3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 

3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 

3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 3421.789473 

Bo-10 3 t4 
_B_ 

3421.789 3421.789 3421.789 3421.789 3421.789 3421.789 

3421.789 3421.789 3421.789 3421.789 3421.789 3421.789 

3421.789 3421.789 3421.789 3421.789 3421.789 3421.789 

3421.789 3421.789 3421.789 3421.789 3421.789 3421.789 

3421.789 3421.789 3421.789 3421.789 3421.789 3421.789 

3421.789 3421.789 3421.789 3421.789 3421.789 3421.789 

Bo-9 2lA 
B_ 

3421.79 3421.79 3421.79 3421.79 3421.79 3421.79 

3421.79 3421.79 3421.79 3421.79 3421.79 3421.79 

3421.79 3421.79 3421.79 3421.79 3421.79 3421.79 

3421.79 3421.79 3421.79 3421.79 3421.79 3421.79 

3421.79 3421.79 3421.79 3421.79 3421.79 3421.79 

3421.79 3421.79 3421.79 3421.79 3421.79 3421.79 

Bo-9 ~3T A 
B_ 

3.42503 3.42503 3.42503 3.42503 3.42503 3.42503 

3.42503 3.42503 3.42503 3.42503 3.42503 3.42503 

3.42503 3.42503 3.42503 3.42503 3.42503 3.42503 

3.42503 3.42503 3.42503 3.42503 3.42503 3.42503 

3.42503 3.42503 3.42503 3.42503 3.42503 3.42503 

3.42503 3.42503 3.42503 3.42503 3.42503 3.42503 
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*4? A 





B_ 






3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422203 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 

3.422503 


Quad Output. Quad output is of the form 

[>A 

where A is any APL expression which returns a result. 

If A is a character variable, the data is displayed Starting at the 
left margin. If the printing width in effect is reached before the 
last column is printed, a carriage return/linefeed is generated and 
printing resumes on the next line, indented six spaces. Arrays of 
rank three or nigher are printed with extra linefeeds in between each 
dimension. Thus, a three-dimensional variable will print as several 
two-dimensional arrays with one blank line between each plane. 
Similarly, a four-dimensional array will print as several groups of 
three-dimensional arrays with two blank lines between each plane. 
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Examples of quad output are 


/K4 6 p 1 2 3 *8 
Q-+-.4 

5.238909443516 5.238909443516 5.238909443516 5.238909443516 

5.238909443516 5.238909443516 

5.238909443516 5.238909443516 5.238909443516 5.238909443516 

5.238909443516 5.238909443516 

5.238909443516 5.238909443516 5.238909443516 5.238909443516 

5.238909443516 5.238909443516 

5.238909443516 5.238909443516 5.238909443516 5.238909443516 

5.238909443516 5.238909443516 

/K4 8 0 o' A BCD ' 

_A_ 

ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABC DA BCD 
ABCDABCDABC DABC DABCDABC 0 ABCDABC DA BCD ABCDABCDABCD ABC DA BCD A BCD A BCD ABC DA BCD ABCDABCD 
ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD 
ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD 

ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD 
ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD 
ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD 
ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD 
A+ 4 4 4p’ ABCD * 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 

ABCD 


Quad Input, Quad input is of the form 

D't'A 

The system writes the characters □: and unlocks the keyboard on the 
next liner indented six spaces# and awaits input. At this point# any 
APL expression may be entered. This expression is evaluated and the 
result is used as the value of A, 

Quad input example: 


A+n 

Q : 

34.2 

A_ 

34.2 
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Quote Quad Output. Quote quad output is of the form 

□ *A 

where A is any APL expression. 

Operation of quote quad output is exactly the same as quad output 
except that the concluding carriage return/linefeed is not generated. 
This is useful in the case where either the next output results from 
quote quad or the next input request results from quote quad. In 
these two cases the carriage starts where it left off with the last 
quote quad output. 

Quote quad output example: 


THIS IS A ’01 ?}+-'TEST' 

THIS IS A TEST 

ITHnrjyjji a test ’ 

THIS 

IS A TEST 

A + 4 3 o12 3 * 8 

5.23 8909443516 5.238909443516 5.238909443516 

5.238909443516 5.238909443516 5.238909443516 

5.238909443516 5.238909443516 5.238909443516 

5.238909443516 5.238909443516 5.238909443-516 


Quote Quad Input. Quote quad input is of the form 


A-hD 

where the result is always a string of zero or more characters. 

Quote quad input reads in the line of characters typed by the user and 
creates a character vector result to contain that input. Any 
characters may be entered from zero characters (carriage return) up to 
the maximum number of characters allowable by tne system (the printing 
width in effect is ignored). In the case where a preceding quote quad 
output has left the carriage somewhere other than the left margin, the 
result of the quote quad input is as if the carriage had been spaced 
to the current carriage position before entering the characters. The 
system allows backspacing to a point to the left of the last output 
before entering data, and this is reflected in the result. Note that 
if characters are entered which do not cause the carriage to advance, 
visual fidelity (see Section I) will not be preserved in the output, 
because the computer treats every output character as if it caused a 
carriage movement of one space to the left. 
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Quote quad input example 


3.14159 

A 

3.14159 

THE 7ALUE OF A IS READ BY THE SYSTEM AS IT IS TYPED Iff 

A 

THE VALUE OF A IS READ BY THE SYSTEM AS IT IS TYPED IF 
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SYSTEM FUNCTIONS 
AND SYSTEM VARIABLES 


SECTION 


IV 


The set of primitive APL functions described in Section III deals only 
with abstract items such as numeric and character arrays. To deal with 
concrete items, such as system resources# a set of system variables is 
identified for use in communicating among the user# APL# and the 
system CMpE) in which APL resides. 

The system variables are used for interaction between APL and its 
environment* however# there are situations where it is more convenient 
to use functions based on system variables when the system variables 
themselves may not be explicitly available to users, Such functions 
are called system functions . 

System variables and system functions are denoted by distinguished 
names . These are formed by the quad symbol (□) followed by a name 
denoting the variable or function (for example# DIO or DSVQ), Such 
names cannot be used tor user*defined objects# and cannot be copied or 
erased, 


SYSTEM FUNCTIONS 

Twenty four system functions are provided 
Canonical representation DCR 
Capture stack environment DCSE 
Convert DCV 
Delay DDL 
Expunge DEX 

Function establishment DFX 
Monitor values DMV 
Name classification DMC 
Name list DNL 
Query monitor DQM 
Query stop Dos 
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Query trace DQT 

Release stack environment DRSE 

Reset monitor DRW 

Reset stop DRS 

Reset trace DRT 

Set monitor DSM 

Set stop DSS 

Set trace DST 

Shared variable control DSVC 
Snared variable offer Dsvo 
Shared variable retract DSVR 
Shared variable query DSVQ 
Vector representation DVR 

Four system functions •• shared variable control CQSVOJf shared 
variable offer (DSVQ) # shared variable query ( DSVQ) f and shared 
variable retract (DVR) *• are concerned with the management of the 
shared-variable facility and are described in Section V f 

The convert CDCV) system function performs data conversions and is 
described in Section VI, 

The capture stack environment (DCSE) and release stack environment 
(□RSE) system functions are used with the extended control facility 
and are described in Section X, 

The following system functions are used as debugging aids and are 
described in Section X; 

Monitor values (DMV) 

Query monitor CDQM) 

Query stop (DOS) 

Query trace (DQT) 
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Reset monitor (□RM) 

Reset stop (DPS) 

Reset trace (DPT) 

Set monitor (DSK) 

Set stop (DS5) 

Set trace COST) 

The remaining seven system t unctions are listed in table 4-1 and are 
described In this section. 


System functions can be referenced or executed like any other 
function. They are monadic or dyadic# as appropriate# and have 
explicit results. In most cases# they also have implicit results# in 
tnat their execution causes a change in the environment, The explicit 
result always indicates the status of the environment relevant to the 
possible implicit result. 


CANONICAL REPRESENTATION FUNCTION 


The canonical representation function is denoted oy the name DCR, When 
applied to a character argument representing the name of an already 
established user-defined function, the OCR function produces the 
user-defined function's canonical representation. For example# if 
ROOTS is a user-defined function. 


BCR 'ROOTS' 

ROOTS 

'ENTER A NUMBER' 

'AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT' 
'AND THE CUBE ROOT' 

LABELl : N+Q 
LABEL2 : A+N*i 2 
LABEL3zB+N**3 
'THE SQUARE ROOT IS ',wA 
'THE CUBE ROOT IS ' ,f0 

'ENTER 0 IF YOU DO NOT NISH TO CONTINUE' 
LABELH-.N+B 
+{N* 0)/5 
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The status of the original function BOOTS is unchanged and it can be 
executed by entering ROOTS, 


ROOTS 

ENTER A NUMBER 

AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT 
AND THE CUBE ROOT 

□ : 

4 5 

THE SQUARE ROOT IS 6.708203932 

THE CUBE ROOT IS 3.556893304 

ENTER 0 IF YOU DO NOT WISH TO CONTINUE 

u: 

0 


When applied to any argument which does not represent the name of an 
unlocked defined function, DCR returns a matrix of dimensions 0 0, For 
example# 


P UCR 'NONE' 

0 0 

Possiole error reports for OCR are rank: error if the argument is not a 
vector or scalar# or domain error if the argument is not character. 


VECTOR REPRESENTATION FUNCTION 

The vector representation function (DVR) is similar to the canonic 
representation function (DCR)# the difference being that the result of 
□VR is a vector with carriage return characters used to separate lines 
of the function# instead of trailing blanks. Note that there is no 
carriage return on the last line of the result. Note also that the 
result of DVR usually taxes considerably less storage space than does 
that of OCR when executed with the same argument# because there are no 
blank characters needed to fill each row of the matrix result of DCR, 

An examples 


0 VR 'ROOTS' 

ROOTS 

'ENTER A NUMBER' 

'AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT' 
'AND THE CUBE ROOT' 

LABELlzN+0 
LABEL2:A+N*}2 
LABEL3 : 3 

'THE SQUARE ROOT IS ',JA 
'THE CUBE ROOT IS ',?B 

'ENTER 0 IF YOU DO NOT WISH TO CONTINUE' 

LABELS : N*-Q 
+ (N *0 )/5 
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Table 4-1. System Functions 


NAME 

SYMBOLS 

REQUIREMENTS 

EFFECT ON ENVIRONMENT 

EXPLICIT RESULT 

RANK 

LENGTH 

DOMAIN 

Canonical 

representation 

OCR N 

1 s=ppA/ 


Character 

array. 

None. 

Canonical representation of N. 
The result for anything other than 
an unlocked defined function 
has the dimensions 0 0. 

Function 

establishment 

OFX N 

None 


Character 
matrix, 
vector, or 
unit. 

Fix (establish) definition of the 
function represented by N, 
unless its name is already in use 
for an object other than a func¬ 
tion which is not halted. 

A vector representing the name 
of the function established, or 
the scalar row index of the fault 
which prevented establishment. 

Expunge 

OEXN 

2s?ppN 


Character 

array. 

Expunge (erase) objects named 
by rows of N, except groups, 
labels, or halted functions. 

A boolean vector whose /th 
element is 1 if the /th name is 
now free, or 0 if the /th name is 
not free. 

Name list 
(monadic) 

ONL N 

~\&zppN 

1>p,S 

/\INe J [ 2 34 

None. 

A matrix of rows (in random 
order) representing names of 
designated kinds in the dynamic 
environment: 1,2, 3, 4 for labels, 
variables, APL functions, and 
APLGOL functions respectively. 

Name list 
(dyadic) 

AQNL N 

1 ^ppN 


A/ N e1 234 
Elements 
of A must 
be alpha¬ 
betic. 

None. 

As for the monadic form, except 
that only names beginning with 
letters in A will be included. 

Name 

classification 

Onc A 

2s*ppM 


Character 

array. 

None. 

A vector giving the usage of the 
name in each row of A: 

0-name is available 

1- label 

2- variable 

3- APL function 

4- APLGOL function 

5- name unavailable 

Delay 

DDL N 

IS :ppN 


Numeric 

value. 

None, but requires N seconds 
to complete. 

Scalar value of actual delay. 

Vector 

representation 

DVR N 

~\z*ppN 


Character 

vector 

None. 

Vector representation of N. The 
result for anything other than an 
unlocked defined function has 
the dimensions 0 0. 


FUNCTION ESTABLISHMENT 


A function can be created witn the system function denoted by DFX, The 
argument to the function must be a character vector or matrix, and 
must be a matrix or vector canonical representation, DFX is executed 
with the character representation of the function as its argument and 
produces as an explicit result a character vector of the name of the 
function (this is the name contained in the first statement of the 
function), if DFX cannot establish the function, it returns a scalar 
numeric denoting the line number (DIO dependent) in which the error 
was found. 
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The DFX function returns the name of the function being created 
(BOOTS)* For example, 

TBST+UCE 1 ROOTS 1 
TESTIU21 + ' B' 

TEST 

BOOTS 

' ENTER A NUMBER 1 

'AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT '' ’ 

'AND THE CUBE ROOT' 

LABEL1:N+Q 
LABEL2:A+N*i2 
LABELS:B+N*i 3 
’THE SQUARE ROOT IS ' 9 jA 
'THE CUBE ROOT IS ’,?S 

'ENTER 0 IF YOU DO NOT WISH TO CONTINUE' 

LABELS:N+U 
+(N* 0)/5 


EXPUNGE FUNCTION 

The expunge function is denoted by the name DEX and is used to 
eliminate an object from the active workspace. 

The DEX function will not expunge a label or a halted function * (A 
label is a name used to identify a specific statement in a defined 
function, and a halted function is a function that has been halted 
while in execution mode,) 

The DEX function returns a logical vector result of 1 if the name is 
presently available, or a result ot 0 if it is not, A 0 also is 
returned if the argument used with DEX is not a well»formed name, A 
rank error is reported if the argument is of higher rank than a 
matrix, or a domain error if the argument is not character. 

An example of the DEX function is as follows; 


D EX 'ROOTS' 

1 


NAME LIST FUNCTION 

The name list function is denoted by the name DNL and can be used 
monadically or dyadically, Dnl returns a character matrix, each row 
of which represents the name of a label, variable, or function 
currently in the dynamic environment. 

When used dyadically# the left arqument is a scalar or vector which 
restricts the names produced to those whose initial letter is the same 
as a letter occurring in the argument. For example, if the left 
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argument is A# then only names beginning with A will be produced by 
the DNL function. The right argument of DnL is a scalar or vector 
whose values may fce the integers X, 2, 3, or 4, The values 1, 2, 3, 
and 4 respectively produce the names of labels# variables# API 
functions, and APLGOL functions. 

If the vector value 1 2 3 4 is used as the right argument of Uhl, the 
names from all categories are produced. The results produced are in 
the order in which the names first appeared in the workspace. 

Examples of the DNL function used dyadically are! 


'BERT' QNL 2 3 
E 

ROOTS 

B 

EDIT1 
RESHAPE 1 
RESHAPE2 

'B' UHL 2 3 
B 


'R' UHL 3 


ROOTS 
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When used monadically# there is no restriction on initial 
right argument performs the same as when used dyadically 
of monadic use is: 


QNL 2 3 
CIRCLE ARE A. 

E 

ROOTS 

y 

A 

8 

r 

Y 

EDIT 1 
APLG0L1 
APLGOL2 
APLG0L3 
APLGOLh 
APLGOLb 
APLG0L8 
APLG0L1 
APLGOL8 
APLGOL9 
APL 11 
APL 31 
APL 32 
APL 33 
APL34 
APL 35 
APL 51 
APL 52 
4 PL 61 
4PL62 
APL101 
APL102 
APL103 
A PL10 4 
APLSET 
YIELD 
INCOME' 

VEC 

XQR 

CRAR 

SHAPE 

RESHAPE1 

RESHAPE 2 

D 

X 

Z 

VECTOR 

ALTER 

ARRAY 


letters* The 
* An example 
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Further uses of the Dnl function include the followings 

* In conjunction with the expunge function (DEX), all the objects 
of a certain class can oe dynamically erased? or a function can 
be defined that will clear a workspace of all but a preselected 
set of objects, 

* In conjunction with the canonical representation function CDCR), 
functions can be written to display automatically the definitions 
of all or certain functions in the workspace, or to analyze the 
interactions among functions and variables, 

* The dyadic form of DNL can be used as a convenient guide in the 
choice of names while designing or experimenting with a 
workspace, 


NAME CLASSIFICATION FUNCTION 

The monadic name classification function is denoted by the name DNC, 
Tnis function accepts scalar# vector# or matrix arguments and returns 
a numerical indication of the class of the name (or names) represented 
by the argument. For example, 


UNO 

’ ROOTS 1 

L \NC' 

ABN' 

0 NC 

»C ’ 

DNC 

'A' 


The result of tne DNL function can be used as an argument for DNC, out 
other character arrays may also be used. The results are integer 
values from 0 to 5 # The integers 1, 2, 3, and 4 have the same 
meanings as for DNL? a result of 0 signifies that the corresponding 
name is available for any use; and a result of 5 signifies that the 
name is not valid because it is a distinguished name, or is 
incorrectly formed. 


DELAY FUNCTION 

The delay function is denoted by the name DDL and causes a pause in 
the execution of the statement in which it appears. The duration of 
the pause, in seconds, is determined by the argument of the DDL 
function? the accuracy# however# is limited by possible contending 
demands on the system when the statement is executed. Additionally, 
the delay can be overridden by a hard interrupt. 

The result of the DDL function is a scalar value equal to the actual 
delay. If the argument used with DDL is not a numeric scalar value, a 
rank or domain error is reported. 
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Because the delay function uses only a small amount of computer time 
compared to connect time, it can be used repeatedly in situations 
where it is desirable to determine if an expected event has occurred. 
This is useful in interactions between a program and the user, and in 
work with shared variables as discussed in Section V, 

Example j 


TIME+UDL 30 TIME 
3.032000065 


SYSTEM VARIABLES 

System variables are shared between a workspace and the APL system, 
thus they are instances of snared variables which are discussed in 
Section V, Sharing occurs automatically when a workspace is 
activated, or, when a system variable is used in a function, each time 
that function is used. 

The characteristics of shared variables that are significant here ares 

* When a variable is shared by two processors# the value of the 
variable may be different for each processor, 

* Each processor is free to use or not use the value specified by 
the other processor for a variable. 

System variables are shown in table 4*2, Included is the name of each 
variable, the name used to denote the variable, its purpose, its value 
in a clear workspace (where appropriate), and its meaningful range. 
Note that there are two classes of system variables, as follows? 

1, The value specified oy tne user (or available in a clear 
workspace) for a system variable is used by the processor in 
operations relating to this variable* If the value Is 
inappropriate, a domain error occurs at assignment execution. 

Included in this class are? 

Assert level DAL 

Comparison tolerance DCT, 

Horizontal tabs DHT, 

Index origin DIO, 

Language DLA 

Latent expression DLX, 
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Table 4-2. System Variables 


NAME 

SYMBOLS 

PURPOSE 

Comparison 

tolerance 

□ CT 

Contains the comparison tolerance. 
Used in monadic 
dyadic < = 3 = > # e 

Index origin 

□ IO 

Contains the index origin. 

Used in indexing and in ?\ fa § DfX 

Latent 

expression 

□ LX 

Executed on activation of workspace 

Printing 

precision 

□ PP 

Contains the print precision. Affects 
numeric output and monadic format 

Printing 

width 

□ PW 

Contains printing width 

Random link 

□ RL 

Contains the random link. Used in 
roll and deal primitive functions 

Account 

information 

□ Al 

Contains connect time this session and 
CPU time this session, in milliseconds 

Atomic vector 

□ AV 

Contains all available characters in APL 

Line counter 

□ LC 

Contains statement numbers of func¬ 
tions in execution or halted, most 
recently activated first 

Time stamp 

□ TS 

Contains year, month, day of month, 
hour (24-hour clock), minute, second, 
millisecond. 

Assertion 

level 

□ AL 

Contains the APLGOL assertion used 
in APLGOL assertion-checking 

Execution 

trace 

□ XT 

Contains trace information. Prints value 
in TRACE format 

Branch trace 

□ BT 

Prints value in TRACE format as if 
value were argument to branch (—► ) 

Virtual 

memory 

□ VM 

Contains virtual memory paging 
scheme parameters 

Language 

□ LA 

Contains language setting 

Terminal type 

□ TT 

Contains internal terminal type 


INITIAL 

VALUE 

MEANINGFUL 

RANGE 

IE-13 

0 to 1 

1 

0,1 

(empty vector) 

characters 

10 

1 to 16 

80 

20 to 255 

0 

0 to 1 

— 

Cannot be set 

See page 4-17 

Cannot be set 

0 

Cannot be set 

' 

Cannot be set 

0 

-32768 to 
32767 (integer) 


Any value 


Any value 

256 ~24 

N[1] : 2*X 
7=sX=s12 

N[2] : X>0 - 
2 x Y 

2=sY*sL 

X<0 : 2=sXssL 

L stack size 
dependent 

‘APL’ 

‘APL’ 

APLGOL’ 

Same as 

previous workspace 

See page 4-22 




















































































Table 4-2. System Variables (Continued) 


NAME 

SYMBOL 

PURPOSE 

INITIAL 

VALUE 

MEANINGFUL 

RANGE 

Horizontal 
tab setting 

□ HT 

Contains tab positions 

10 

Non-negative 

integer 

vector 

Work area 
available 

□ WA 

Contains amount of space still unused 
in workspace (in bytes) 

1610474 

bytes 

Cannot be set 

Stack names 

□ SN 

Contains character matrix of names of 
suspended functions 

0 Op “ 

Characters 

Workspace 

identification 

□ Wl 

Contains workspace identification 

“ 

Characters 

Backspace 

□ B 

Backspace character 

ASCII 8 

0-origin DAY [148] 

Cannot be set 

Linefeed 

□ L 

Linefeed character 

ASCII 10 

0-origin []AV [140] 

Cannot be set 

Return 

□R 

Carriage return (new line) character 

ASCII 13 

0-origin DAV [152] 

Cannot be set 

Tab 

□ T 

Tab character 

ASCII 9 

0-origin DAV [141] 

Cannot be set 

Null 

□ N 

Null character 

ASCII 0 

0-origin DAV [138] 

Cannot be set 

Escape 

□ E 

Escape character 

ASCII 27 

0-origin DAV [166] 

Cannot be set 

Alphabet 

□ A 

Alphabet 

ABCDEFGHIJKLM 

NOPQRSTUVWXY 

Cannot be set 

Digits 

□ D 

Digits 

0123456789 

Cannot be set 


Printing precision DPP, 
Printing width DPW, 

Random link DRL. 

Terminal type DTT 
Virtual memory DVM 
Workspace identification DWI 
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The apl processor 


2, The value specified by the user is not used, 
always resets the variable before it is used. 

Included in this class are* 

Account information DAI 

Alphabet DA 

Atomic vector DAV 

Backspace DB 

Branch trace DBT 

Digits DD 

Escape DE 

Execution trace DxT 
Line counter DLC 
Linefeed DL 
Null DN 
Return DR 
Stack names DSN 
Tab DT 

Time stamp DTS 
Working area DWA 


COMPARISON TOLERANCE 

The comparison tolerance system variable is denoted by the name DCT 
and is used to establish the tolerance for the monadic functions less 
(<), not greater CO, equal C = ), not less CO, greater (>), not equal 
(O, floor (L), and ceiling CD? and the mixed functions index of CO 
and membership C €), 
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In APLV3000# as with all languages# t loating-point numbers are 
represented in a finite number of bits. This makes some floating* 
point numbers difficult to represent exactly. For example# the 
question "is A equal to B" is straightforward unless floatlng*point 
numbers represented in a finite number of bits (64 bits tor APIA3000) 
are involved. The A*B question then becomes harder to answer because 
many floating- point numbers cannot be represented exactly in 64 bits# 
Thus# problems arise if the equals test is defined to be ’’exact,” The 
following example illustrates this point, 


A^i97QA 

1.030927835 E ~02 

UCT+0 n THIS MAKES ’=’ AN EXACT TEST 

1=71x97 

0 

fl BECAUSE 1/97 CANNOT BE STORED EXACTLY 
a THEN ’ A ' IS NOT A NUMBER THAT CAN 
a BE MULTIPLIED BY 97 TO RETURN 1 

This particular way to define = is then not very consistent with the 
way » would be expected to act. Thus the definition of s (and some 
related functions) is not an ’’exact” definition# but is relative to 
the magnitude of the operands and the value of OCT, The definition is 

X+\A-B LI] 

r«T/(M), IB [23 

IF ( Y*nCT)>X THEN [3] 

A IS EQUAL TO B 


Notice that the above set of equations# while concise and correct# is 
difficult to understand. Paraphrasing them as follows may help} 

Equation (1) sets the variable X to the absolute value of the 
difference of the two arguments A and B, 

Equation C2J sets Y to the absolute value of the larger of the two 
arguments A and e. 

The third (and crucial) equation [3] states that the arguments are 
defined to be equal, if DCT times the larger of the arguments (Y) 
is larger that the difference between the arguments. 

Note that DCT does not specify the absolute difference between the 
arguments but the difference relative to the size of the arguments# 
Thus two big numbers need not be as close# in an absolute sense# as 
two small numbers, Note that under this definition, if DCT is 0# the 
equals test is exact in that the difference between the arguments A 
and B must be 0, exactly# for equation [33 to be true. 
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The functions (less# not greater# equal# not less# greater# not equal# 
floor# ceilinq# index of# and membership) for which DCT establishes 
the tolerance result in an error unless the operand(s) are considered 
M integers, M In APLA3OQ0# this test for integer is done in the 
following ways 

1) First# the integer closest to the argument is obtained* 

2) Second# the inteqer obtained in 1) is compared in a relative 
sense to the argument, 

3) If the integer from l) is relatively equal to the argument# 
that integer is used as the argument, 

A comparison tolerance example; 


»«-34**5Qd 

2.024397458 

S-*-3 3 * * 5QB 
2.012346517 
A-B 

0 

UCT+IE~^ 

A-B 

0 

UCT+1E~2 

A-B 

1 


INDEX ORIGIN 

« 

The index origin system variable is denoted by the name DIO and is 
used to establish the index origin ( l»origin or Q«origin ) for the 
monadic function roll (?); the mixed functions deal (?)# index 
generator C 1 )# index of CO# grade up (A)# grade down CO# and 
transpose ($)> and the system function fix (DFX), For example# 


A+l 234567890 

gro«-i 

4[4] 

4 

QI£^0 

^[ 4 ] 

5 
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LATENT EXPRESSION 


The latent expression system variable is denoted by the name DLX, The 
APL statement represented oy a latent expression is executed 
automatically whenever a workspace is activated. For example, if the 
expression 

□ LX "'THIS IS WORKSPACE 3"' 

is entered and workspace WS3 is saved, the phrase THIS IS WORKSPACE 3 
will be displayed when WSJ is activated. See below. 


QLX*-' "THIS IS WORKSPACE 2''' 
)SAVE WS 2 

SAVED 11:12 10/14/76 VS2 
)L0AD WS 2 

SAVED 11:12 10/14/76 
THIS IS WORKSPACE 2 


The form □ LX*-'+DLC' can be used to restart a suspended function 
automatically and the form □LX^'TEST' also may be used to activate the 
function TEST when a workspace is activated. For example, 


QLX+'TEST' 
) EDIT 


[0] 

[1] 

TESTiQLX 

QLX+'QC 1 LATENT 

EXPRESSION DEMONSTRATION * f ’ 

[2] 

'FUNCTION TEST WILL 

BE CALLED AUTOMATICALLY' 

[3] 

return 


>END 



)SAVE WS 1 


SAVED 11:14 10/14/76 WS 1 



MO AD WS 1 

SAVED 11:14 10/14/76 

FUNCTION TEST WILL BE CALLED AUTOMATICALLY 


Note that system commands may be used with DLX, For example, 
□LX^')FNS # is valid. 
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RANDOM LINK 


The random link system variable is denoted by the name DRL, The random 
link is a value used by APL to generate random numbers for tne roll 
(?) and deal (?) functions, The random link variable has a value of 0 
when a workspace In first activated. After a roll or deal function is 
executed# the random link is changed# so that when the roll or deal 
function is executed again the same set of random numbers is not 
repeated. For example, 

URL 

0 

7 ? 9 

1 8 6 2 9 5 4 

URL 

9.928070009 E ~02 
7 ? 9 

4 5 3 8 2 9 6 

URL 

.5041744709 


If the random link is set by the user before executing a roll or deal 
function# this value is used by APL as the link value. For example# 


1 


1 


4 


4 


URL+Q 
7 ? 9 

8 6 2 9 5 4 

URL* 0 
7 ? 9 

8 6 2 9 5 4 

DffZ>. 5576 
7 ? 9 

3 7 9 1 8 6 

URL-*- . 5 576 
7? 9 

3 7 9 1 8 6 
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PRINTING PRECISION 


The printing precision system variable (DPP) contains the precision of 
values displayed. Examples ares 

DPP 

10 

A+- 34*12 

± 

2.386420584P18 
□PP<-8 
A 

2.3864207P18 

□PP-*-6 

A 

2.38542P18 
□PP^-4 
_A 

2 .SSSSIS 


PRINTING WIDTH 

The printing width system variable CDPW) contains the printing width 
for values displayed toy APL, 

An examples 


QPW 

80 

A +18 00/4 


1 

2 

3 

4 5 

6 

7 

8 9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 




23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 



42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 



61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 



80 





















QPW 

*-400/3 

















1 

2 

3 

4 5 

6 

7 

8 9 

10 

11 

12 














13 

14 

15 

16 

17 

18 

19 

20 

21 













22 

23 

24 

25 

26 

27 

28 

29 
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31 

32 

33 

34 

35 

36 

37 

38 

39 













40 

41 

42 

43 

44 

45 

46 

47 

48 













49 

50 

51 

52 

53 

54 

55 

56 

57 













58 

59 

60 

61 

62 

63 

64 

65 

66 













67 

68 

69 

70 

71 

72 
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74 

75 













76 

77 

78 

79 

80 
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ACCOUNT INFORMATION 


The account information system variable is denoted by the name DAI, 
Its result is the CPU time and the connect time used so far in the 
session# in milliseconds. 

An example of the DAI system variable Is; 

DAI 

39525 1610229 

g at 

39871 1619113 


ATOMIC VECTOR 

The atomic vector system variable Is denoted by the name UAV, Its 
value is a 256-element character vector containing all possioie APL 
characters» 

Indices of Known characters# such as A# B# =, <# and so forth# can be 
determined by an expression such as □ AV i # ABs<*, 

Examples of the DAV variable are; 

QAV 

0123456789 AABBCCDDEEFFGGHHIIJJKKLLMMNiOOPPQQRRSSTTUUVVWWXXYYZZ&&<*>*=**A~e++IT/ 

\ () C ]“-*-*-?□’ «.;: 0 -+tx? pi o*ril ,*e$I/?*¥$"—'Jfwacsun 

Note that printing of DAV may result in erratic terminal behavior due 
to the output of control characters. 


LINE COUNTER 

The line counter system variable# denoted oy the name DLC# produces a 
vector of the statement numbers of functions In execution or halted. 
The most recently activated statement numbers are displayed first. For 
example# 

ROOTS 

E V TER A NUMBER 

AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT 
AND THE CUBE ROOT 
□ : 

34 

ROOTSi 5]* 

ULC 

5 

+ 6 

ROOTSll']* 

ULC 

7 

+ 10 

□ : 

0 
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STACK NAMES 


The stack names system variable (DSN) returns the names of all 
user-defined functions on the stack. For example* 

ROOTS 

ENTER A NUMBER 

AND THE COMPUTER NHL COMPUTE THE SQUARE ROOT 
ROOTS [3]* 

dsn 

ROOTS 

->•10 

□ : 

0 


WORKSPACE IDENTIFICATION 

The workspace identification system variable CDWI) contains the name 
of the active workspace, if the workspace is unnamed# an empty vector 
is returned. For example# 


UNI 


) LOAD NS 2 

SAVED 11:12 10/14/76 
THIS IS WORKSPACE 2 
UNI 

NS 2 


TIME STAMP 

The time stamp system variable is denoted by the name DTS and returns 
the year# month# day of the month# hour C24*hour clock)# minute# 
second# and millisecond. For example# 

UTS 

1976 10 14 11 33 1 700 


ASSERTION LEVEL 

The assertion level system variable (DAL) establishes APLGOL assertion 
checking level. The DAL system variable indicates the lower bounds of 
assertions to be checked, Each time an ASSERT statement is 
encountered in an APLGOL user*defined program# the assertion level is 
checked against the first expression in the ASSERT statement. If the 
assertion level is smaller than the level set by DAL# the entire 
statement is regarded as a comment and is not executed. See section 
IX for a further discussion of the APLGOL ASSERT statement. 
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EXECUTION TRACE 


The execution trace CDXT) system variable is used to trace the 
execution of a statement, or to determine the type (character or 
numeric), shape, and value, of the result of an APL expression. When 
read, DXT always has the value " (empty character vector). Upon 
assigning a value to DXT, however, the type, shape, and value are 
displayed on the terminal in the same format as when tracing a 
function with the DST system variable. See Section IX for a 
discussion of DST and trace format. 


BRANCH TRACE 

The branch trace system variable (DBT) causes APL to display values in 
trace format as if the value is an argument of a branch arrow (+), See 
Section IX for a discussion of trace format, 

VIRTUAL MEMORY 

The virtual memory system variable (DVh) allows a user to control the 
paging scheme used by APL in managing the active workspace. When read, 
□VM. yields a four-element integer vector whose elements are the page 
size (in bytes), the number of pages to be used, the number of page 
faults which have occurred since the last assignment of DVM or the 
last )SAVE, )LOAD, or )CLEAR (whichever occurred last), and the stack 
size of the HP 3000 stack used (in words). When assigning a value to 
□VM, an integer vector is used, the first two elements of which 
replace the first two elements of DVM, and the rest is ignored. 

The first element of the value assigned to DVM must be a power of two 
between 2*7 and 2*12, The second element can either be positive or 
negative. If positive, it implies a congruent set paging scheme, and 
must be a power of two between 2*2 and a number dependent on the stack 
size. If the second element is negative, it Implies a linked list 
paging scheme, and can be any integer between -2 and a negative number 
again dependent on the stack size. 

If either of the first two elements of the vector being assigned to 
□VM is out of range, the assignment has no effect. 


LANGUAGE 


The language system variable (DLA) contains the default language of 
the translator. When the APLN3000 editor or the DFX function is used 
to create a user-defined function, the function is assumed to 
either APl or APLGQl, The argument of DLA is a character vector 
or 'APLGQL* to specify the translator to be used. 


be in 
'APL' 
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TERMINAL TYPE 


The terminal type system variable (DTT) contains the terminal type. 
The terminal type is specified by a character vector argument as 
follows s 

'AJ' * Anderson Jacobson 
'ASCII * * ASCII 

# CDI' * Computer Devices, Inc, 

'GSI' - GenCom Systems, Inc, 

'DM* - DataMedia 

# BP' - Bit Pairing 

'CP* - Character Pairing 

'HP' - Hewlett-Packard HP 2641A 


HORIZONTAL TABS 

The horizontal tabs system variable CDhT) is used to set internal tab 
stops and the interpretation of the tab character on input, DHT can 
be assigned an integer vector, each element of which denotes the 
number of character positions between a tab stop and the left margin. 
The vector need not be in any particular order. Upon reading DHT, the 
tab stop positions, in ascending order, are returned. Assigning an 
empty vector to DHT causes operation to be as though there were no tab 
stops, 


The DHT system variable has no effect if the terminal type (DTT) is 
ASCII, If DTT = 'ASCII', an implicit DHT is preserved but ignored. 
Upon suoseguent resetting of the terminal type to non-ASCII, an 
implicit □HT^-DHT is performed end the stored value becomes effective. 


WORK AREA AVAILABLE 

The work area available system varaible (Dwa) has as its value an 
integer representing, in bytes# the approximate amount of storage 
still available in the active workspace. This system variable is not 
explicitly changeable, but changes every time storage in the workspace 
is used or released. 
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character system variables 


Six control character system variables, and three character sequence 
variables are available. These are scalar Cin the case of the control 
characters) or vector Cin the case of the character sequences) 
variables, whose values are constant from one read to the next. These 
variables ares 


NAME 

CHARACTER 

ASCII 

DECIMAL 

VALUE 

OCTAL 

ATOMIC 

INDEX 

VECTOR C AV) 
CO-ORIGIN) 

□ B 

Backspace 

8 

10 


148 

□ L 

Linefeed 

10 

12 


140 

□ R 

Carriage Return 

13 

15 


152 

□T 

Paw Tab 

9 

11 


141 

□ N 

Null 

0 

0 


138 

□ E 

Escape 

27 

33 


166 


□A Alphabet 'ABCDEFGHIJKLMNOPQRSTUVWXYZ* 

□ D Digits # 0123456789 # 

□ AV Atomic Vector (See page 4-3.9 ) 
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Shared variables are used to communicate between two processes. This 
allows two independent concurrently operating processes to cooperate 
with one another by sharing information which each process can use for 
its own purposes. Currently# variables may be shared between the 
active workspace# the AFL system# and the file system. 

Shared variables may either be global or local# and are similar to 
ordinary variables except that shared variables may not be used with 
indexed assignments. A shared variable may appear on the left of an 
assignment statement# in which case its value is said to be set# or 
written ; or it may be used elsewhere in a statement# in which case its 
value is said to be used # or read . Either form is defined as an 
access , 

A shared variable can have only one value at any given instant; 
however# either process can change the value. Thus a process using a 
shared variable may find its value different from that which it 
assigned previously# or from one read to the next. 

Although a process can share variables with any number of other 
processes simultaneously# each sharing is bilateral ; that is# each 
shared variable nas only two owners . This does not detract from the 
efficiency of the system because one process can share variables 
bilaterally with several other processes# controlling their access to 
these variables as required. 

Four system functions are provided to establish the sharing of 
variables. Two of the functions are used for the actual management of 
the shared variables# and the other two are used to provide related 
information. The functions are listed in table 5-t, 


OFFERS 

An offer to share a variable is performed by the system function DSVO, 
This function can be used monadically or dyadically, Tne monadic form 
is DSVO PN# where PN is a character vector representing a shared * 
variable identifier . The dyadic form is Pi DSVO PN# where PI is a 
character vector identifying the other process with which sharing is 
to be accomplished# and PN is as noted above. 

The shared-variable identifier generally consists of two names. The 
first name indicates the variable to be shared# and the second name is 
a substitute# or surrogate # name which is offered to match a name 
offered by the other process. The surrogate name is not necessary# 
only one name need be used, (In this case# the name of tne variable 
is its own surrogate.) 
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Table 5-1. System Functions for the Management of Sharing 





REQUIREMENTS* 




SYMBOL 

NAME 

RANK 

LENGTH 

DOMAIN 

EFFECT ON ENVIRONMENT 

EXPLICIT RESULT 

pi as vo pn 

Dyadic 

offer 

2^ppPN 

(x/“UP)e1,-1|pA/ 

Characters 

Tenders offer to process P if 
first (or only) name of a pair 
is not previously offered and 
not already in use as the 
name of an object other than 
a variable. 

Degree of coupling now in 
effect for the name pair. 
Dimension: x/~1 jpA/. 

□SVO PN 

Monadic 

offer 

2s -ppPN 

None 


None 

Degree of coupling now 
in effect for the name pair. 
Dimension :xl~ 1 ip N. 

casvc pn 

Access 

control 

2s*ppPN 

2s *ppC 

(1 >ppC) a 1 =x/pC 
or 

(pC)=(-11pA/),4 

A/CeO 1 

kk 

Sets access control. 

New setting of access 
control. 

Dimension: ( _ 1ipA/),4. 

□SVC PN 

Access 

control. 

2s --ppPN 

None 

** 

None 

Existing access control. 

□SVR PN 

Retraction 

2 ^ppPN 

None 


Retracts offer (ends sharing). 

Degree of coupling before 
this retraction. Dimension: 
x/ _ Up/v. 

□SVQ P 

Inquiry 

l3=ppP 

Vector 

Characters 

None 

If P is empty: Vector of identi¬ 
fication of processers making 
offers to this user. 

If P= vector: Matrix of names 
offered by process P but 
not yet shared. 


*lf a requirement is not met the function is not executed and a corresponding error report is printed. 

**Each row of N (or N itself if 2s*ppN) must represent a name or pair of names. If a pair of names is used for an offer (dyadicDSVO), either 
the pair, or the first name only, can be used for the other functions. 


The surrogate name has no effect other than controlling the matching 
of the shared variables# thus making it possible for one process to 
operate with no direct knowledge of# or concern with# the variable 
name used by the other process* In addition# the same surrogate name 
may be used for offers to several processes at the same time. When 
this is done# however# each use of a particular surrogate name must be 
associated with a different variable name oecause a variable may be 
shared with only one other process at any given time. 

The explicit result of the expression PI DSVO PN is the degree of 
coupling of the name or name pair in PN# as follows: 

0 - Sharing is not completed, 

2 - Sharing is completed. 

An offer of a name to any other process increases the coupling if no 
other offer has been made (0 coupling)# and the name is not the name 
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of a label, function, group, or previously shared variable. An offer 
never decreases the coupling. 

An example of the dyadic use of the offer function is as follows: 

’FILS” [~\SVO 'ABC CTRL O’ 

2 

The monadic form of the offer function (DSVO PN) does not affect the 
coupling of the variable contained in PN; however, the degree of 
coupling is reported as the explicit result. If the degree of 
coupling is 2, a repeated offer to share this variable has no further 
implicit result. In this case, the monadic or dyadic form may be used 
for inquiry to determine the degree of coupling. 

An example of the monadic use of the offer function is as follows; 

US/O 'ABC' 

2 

The offer function will not produce the proper result unless all the 
requirements listed in table 5-1 are met. An appropriate error report 
is generated when the requirements are not met, 

A set of offers can be made with one dyadic offer function by using a 
character matrix left argument, or a scalar, vector, or unit argument 
which is (automatically) extended, with a character matrix right 
argument. Each of the rows of the right argument represent a unique 
name or name pair. The offers are treated in sequence; the explicit 
result is a vector of the resulting degrees of coupling. 


ACCESS CONTROL 

As mentioned previously, the value of a shared variable may be changed 
by either of the processes sharing it. For most applications, it is 
important to be able to determine whether a new value has been 
assigned, or whether use has been made of a current value before a new 
value is assigned. An access control mechanism is incorporated in the 
APL shared variable facility for this purpose. 

The access control uses the dyadic form of the system function SVC to 
inhibit the setting or use of a shared variable by either of its 
owners, depending on the access state of the variable, and the value 
of an access control matrix (ACM) which is set jointly by the two 
owners, 

A delay is caused by an inhibition of an access, resulting in a 
negligible amount of computer time. The Keyboard is locked during 
this period, A hard interrupt during the delay will abort the access 
and unlock the keyboard. 

The three possible access states for a shared variable, the possible 
transitions between states, and the potential inhibitions imposed by 
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the access control matrix# ACM# are shown in figure 5-1. ASM in the 
figure refers to the access state matrix . The codes for the access 
state matrix are as follows; 

0 0 1 1 - Initial ASM (can be used by process A or B), 

0 1 0 1 - Can be set by process A. 

1 0 1 0 - Can be set by process B. 


The operations permissible for any state are indicated by the zeros in 
the expression ACMaASM. Thus# referring to figure 5-1# each of the 
following statements can be validated. 

If ACM[1;1J = 1 - Two successive sets by A require an intervening 

access (set or use) by B, 

if ACM[1;2J=1 - Two successive sets by B require an intervening 

access (set or use) by A, 

If ACM 12;1j = 1 - Two successive uses by A require an intervening 

set by B. 

If ACMt2?2J=l - Two successive uses oy B require an intervening 

set by A 

The value of the access state matrix (ASM) is not directly available 
to a user# but the value of the access control matrix (ACM) is. The 
ACM can be obtained from the monadic function DSVC 'N'# where N is the 
name of tne shared variable of interest. 

Note that if two owners use the function DSvC 'N # # the results are 
reversed, in other words# if user A enters DSVC # N'# the result is 
the access control vector 1 4joACM. User B# however# on using the same 
expression# will obtain the reverse of the access control vector# or 
4>ACM• The reason for the reversal is that sharing is symmetric; that 
is# neither process has precedence over the other# and each sees a 
control vector in which the first one of each pair of control settings 
applies to that process' accesses. This can be seen from figure 5-1; 

if the rows of A and B are reversed# the access control matrix will be 

the row reversal of the matrix shown. 

The access control matrix setting for a shared variable is determined 
in a manner that retains the functional symmetry. An expression such 
as b DSVC 'N' executed by user A assigns the value of the left 

argument L to a four-element vector, A similar action by user B also 

results in a four-element vector. If these vectors are called VA (for 
user A) and VB (for user B), then the value of the access control 
matrix can be determined as follows; 


ACM+( 2 2pVA ) a<|> 2 2p VB 
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A one in an element of ACM inhibits the associated access. 
Allowable accesses are given by the zeroes in ACMaASM. 
Access control vectors as seen by A and B, respectively, are 
,ACM and ,<I>ACM. 

The access state matrix represents the last access: ones occur 
in the last row if it is not a set, and in a column if it is, the 
first column if set by A and the last if set by B. 


Figure 5-1. Access Control of a Shared Variable 
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Because the ones in the access control matrix inhibit the 
corresponding actions# it can only be the case that a user can 
Increase # and not decrease # the degree of control imposed by the other 
user, A user can# however# restore the control to the minimum level 
available to him by using the DSVC function with a left argument of 
all £eros. 


The initial values of VA and VB when sharing is first offered are 
zero. Access control can be imposed only after a variable is offered# 
however# after once being offered# access control can be imposed 
whether or not the sharing is completed, in other words# access 
control can be imposed either before or after the degree of coupling 
reaches two. 


The access state when a variable is first offered (the degree of 
coupling is one) is always the initial state as shown in figure 5-1, 
Completion of sharing does not change this access state# however# if 
the variable is set or used before the offer is accepted# the access 
state changes accordingly. 


Table 5-2 
settings al 
figure 5-1 
inhibited 
figure 5-i 
imposed. 


lists several settings of 
so could be represented by 
and deleting the lines 
for each particular case, 
would be deleted when 


the access control vector. These 
omitting the control matrix from 
representing accesses which are 
For example# all inner paths in 
maximum restraint (all ones) is 


Table 5-2. Access Control Vector Settings 


ACCESS CONTROL 
VECTOR AS SEEN BY 

COMMENTS 

A 

B 


0 0 0 0 

0 0 0 0 

No constraints. 

0 0 11 

0 0 11 

Half-duplex. Ensures that each use is 
preceded by a set by partner. 

110 0 

110 0 

Half-duplex. Ensures that each set is 
preceded by an access by partner. 

1111 

1111 

Reversing half-duplex. Maximum 
constraint. 

0 110 

10 0 1 

Simplex. Controlled communication 
from B to A. (For card reader, etc.) 


Several access control matrices can be set by using matrix arguments 
in the DSVC functions as follows; 


To set 
argument 


N access control matrices# 
for DSVC and an N-rowed right 


use an N by 4 matrix left 
argument of variable names. 


The explicit result produced is an m by 4 matrix of the current values 











(the 1 4/o) of the control matrices, l£ control is being set for all 
Inhibits# the left argument can be a single l; for no inhibits# the 
Left argument can be a single 0, 

RETRACTION 

The system function denoted by the name DSVR is used to retract 
sharing offers. The argument of the Dsvr function can be a single 
name to retract a single offer or a matrix of names to retract several 
offers, 

The explicit result of the DSVR function is the degree of coupling for 
each name specified in the argument prior to retraction. The implicit 
result is to reduce the degree of coupling for all specified names to 
zero, 

The APL system retracts sharing automatically if the connection to the 
computer is interrupted# if the user logs off# or if a new workspace 
is loaded (including clearing the active workspace). Sharing of a 
variaDle also is retracted automatically If the variable is erased by 
either user or# if it is a local variable# upon completion of the 
function In which it appeared. 

The value of a shared variable set by one process often will not be 
represented in the partner process' workspace until it is actually 
required to be tnere. Conditions requiring the value to be 
represented are when the variable is to be used or when sharing is 
terminated. 

Under any of the above conditions# it is possiDie that a WS FULL error 
message will be reported. The prior value of the variable remains in 
effect in this case# and# after corrective action# the particular 
action that caused the error message can be repeated and the current 
value of the variable will oe brought into the workspace, 

INQUIRIES 

The monadic system functions DSVO and DSVC (already discussed)# and 
□SVQ produce information concerning the shared variable environment 
but do not alter it. 

If the DSVQ function is executed with an empty vector argument# the 
result is a vector containing the identification of each process 
making any sharing offers. 

If the argument to the DSVq function specifies a particular process# 
the result is a matrix of variable names offered by the identified 
process. This matrix does not contain the names of variables which 
have been accepted by counter offers. 

To produce a character matrix showing the names of shared variables in 
a dynamic environment# the expression shown below can be used: 

W^D.VL 20 M (0 *USV0 M)+M 

The names now will be in variable M, 
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i SECTION 

mm 


Interface between APLN3000 and MPE is provided by the shared variable 
facility . A process named 'FILE' shares certain variables when they 
are offered by an APL user. 

The variables which can be shared by the APL workspace and the file 
process must be offered with the specific surrogate names 'CTRL' or 
'DATA' followed by the single digit 0 through 9, For example, 

CTRLO DATAO 

CTRL7 DATA7 

The digit refers to the file being offered, thus CTRLO and DATAO refer 
to the same file. A maximum of ten files can be shared at the same 
time. 

A third variable C'CMNDS') can be shared between APL and MPE in order 
to issue certain MPE commands from APL, See page 6-11 for a 
discussion of the CMNDS variable. 


CONTROL VARIABLE 

Before a file can be used, it must be opened. The control variable, 
issued with the surrogate name CTRLn, is used for this purpose. The 
apl system then invokes the mpe FGPEN intrinsic to open the file. The 
file name is converted from internal APL characters to ASCII, The 
foptions parameter of FQPEN is specified as %2Q03, aoptions as %4, and 
default values are taken for all other FOPEN parameters. This means 
that the file is opened as an old binary file, with fixed- length 
records and no carriage control. These options can be overridden by 
the file label or the specification of a ;FILE command (see the mpe 
C ommands Reference Manual ). Additionally, the name is that of a file 
(as opposed to that of a file equation), and the file is opened for 
read/write, single record access, buffering, and exclusive access. 

Note: See the MPE Intrinslcs Reference Manual for a complete 
discussion of the FOPEN intrinsic. 

The shared variable offer system function (DSVO) is used to offer to 
share the control variable with the file system. As described in 
Section V, the left argument of the DSVO function specifies the 
process to which the offer is being made. The process name in this 
case is 'FILE', thus the character vector 'FILE' must be specified as 
the left argument of DSVO. 


APLX3000 FILE SYSTEM 
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The right argument of nsvo is a character vector which consists of two 
names: the control variable and the surrogate name CTRLn* where n is 

a digit from 0 through 9, The form of the complete statement is 

'FILE' DSVO 'C controlvariable J CTRLn' 

For example, 

'FILE' DSVO 'ABC CTRLO' 

When the above statement is executed, it returns the degree of 
coupling , as follows: 

0 • The offer is not accepted (usually because of an error, for 

example, misspelling, or name already shared, etc,), 

2 - The offer is accepted. 

For example, 


2 


’ FILE' □SVO 1 ABC CTRLO 1 


If a 2 is returned, the attempt at establishing communication with the 
file system was successful. If a 0 is returned, the attempt was 
unsuccessful • 

The control variable (ABC in the above example) must be assigned the 
name of the file (the "formal file designator") being accessed. This 
is accomplished as follows: 


ABC*'FILE 1’ 
ABC 

1 
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The resulting condition code from the FOPEN attempt can be obtained by 
accessing the control variable (ABC). The file system win signify 
the condition code returned by FOPEN by returning one of the following 
values in the control variable; 

CONDITION CODE APL DISPLAYS 

CCE 1 

CCG 0 

CCL Negative of the error number returned by 

the FCHECK intrinsic. 

Note; The numbers ”1000* ”1001* and”1002 
are not returned by HPE, These are 
APL error numbers which have the 
following meanings; 

”1000 - File already opened, 

Femains as previously 

opened • 

“1001 - File not yet opened, 

“1002 - An attempt was made to 

write to a file with a 

record size which would 

cause a stack overflow. 


A condition code example* 

ABC*- f FILE? 1 
FILE ERROR 

ABC*- ’ FILE2 ’ 
t 

ABC 

"52 

/ 

1 - t - Referenced file does not exist 

Note; Only an existing file can be accessed (a new file will not be 
created if none exists under the name assigned to the control 
variable). An MPE ;FILE command can be entered and the file 
can be back-referenced as follows; 

'FILE' DSVO 3 5^ 'DATAQCTKLQCMNDS' 

2 2 2 

CMNDS •+•'FILE L; DEV=LP' 0 CMNDS 

1 

CTPL0 '#L' 

CTRL0 


The * means turn off the ”no file equation” bit in 
FOPEN. 
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If FILE1 exists 


ABC*'FILE1' 
ABC 

1 


The control variable also may be assigned numeric vector values which 
direct the file system to perform certain actions (through MPE 
intrinsics). The first element of the vector value must bes 

0 * Issues an FCLOSE, Elements 2 and 3 of the vector specify the 

disposition and seccode parameters of FCLOSE, For example, 

ABOO 4 0 

The above statement closes the file identified by the control 
variable ABC and deletes the file from the system. If element 
3 is omitted, it is assumed to be 0, Subsequent reading of 
the control variable causes the file system to return a scalar 
value signifying the condition code returned by FCLOSE as 
follows: 

Condition codes; 

CCE (1) • Successful 

CCL (<0) * Unsuccessful* The value returned is the negative of 

the error number returned by the FCHEXK intrinsic. 

An example. 


ABC*- 0 4 0 
ABC 

1 


Note: Issuing a shared variable retract (DSVR) on the control 

variable will close the file with FCLOSE disposition of 0 (no 
change - if the file is NEW, it is deleted? otherwise, it is 
returned to its previous disposition domain), 

1 - Calls the FCONTR0L intrinsic. Elements 2 and 3 of the vector 

specify the controlcode and param parameters of FCONTROL, For 
example, 

ABC^l 6 0 

The above statement writes an end-of-file mar* on the file 
associated with ABC, 
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The following actions are available through tne FCGNTRQL intrinsic. 
Some of these actions only apply to certain types of files (for 
example, terminals, tapes, and so forth). See the MPE Intrlnslcs 
Reference Manual for details. 


VECTOR[2 J 


OPERATION 


General device control. 


Line control. 


Complete input/output. 


Set time-out interval. 


Rewind tape. 


write end-of-file. 


Space forward to tape mark. 
Space backward to tape mark. 


Rewind and unload tape. 


Change terminal input speed. 
Change terminal output speed. 


Turn ECHO on or off. 


Disable BREAK. 


Enable BREAK. 


Disable CQNTROL-Y, 


Enable CQNTRGL-Y, 


Disable tape mode. 

Enable tape mode. 

Disable input timer. 
Enable input timer. 
Disable parity checking. 
Enable parity checking. 


Define line-termination character. 


Disable binary transfers. 
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27 


Enable binary transfers. 

Disable user block mode transfers 


28 

29 Enable user block mode transfers. 

34 Disable line deletion echo suppresion, 

35 Enable line deletion echo suppression. 

36 Set parity. 

37 Allocate a terminal. 

38 Set terminal type. 

39 Obtain terminal type information, 

40 Obtain terminal output speed. 

41 Set unedited terminal mode. 

Condition codes: 

CCE Cl) - Successful 

CCL (<0) - Unsuccessful. The value returned is the negative of 

the error number returned by the FCHECK intrinsic, 

2 - Calls the FSPACE intrinsic. The second element specifies the 

number of records to skip (forward if positive, backward if 
negative). For example, 

ABC*-2 6 

skips forward 6 records on the file associated with ABC. 
Condition codes: 

CCE Cl) - Successful 

CCG (0) - End-of-file 

CCL (< 0 ) * unsuccessful. The value returned is the negative of 

the error number returned by the FCHECK intrinsic, 

3 - Calls the FPOINT intrinsic. The second element specifies the 

number of the record at which the file is to be positioned. 
For example, 

ABC*-3 4 

points to record 4 in the file associated with ABC, 
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Condition codes 


CCE Cl) - Successful* 

CCG (0) - End-of-file t 

CCL C<0) - Unsuccessful* The value returned is the negative of 
the error number returned by the FCHECK intrinsic, 

4 - Calls the FSETMODE intrinsic. The second element specifies 

the modeflags parameter of FSETMODE• For example, 

ABC“ f_ 4 0 

calls FSETMODE and sets modeflags to 0* 

Condition codes; 

CCE Cl) - Successful 

CCL (<0) - Unsuccessful, The value returned is the negative of 
the error number returned by the FCHECK intrinsic, 

5 - Calls the FGETINFO intrinsic and requests "full status” 

concerning the file. For example, 

ABC-^5 

requests a full status report (from FGETINFO) for the file 
associated with ABC, Reading ABC returns a 25 by 20 character 
array containing the file information, as follows: 

ABC+SOABC 
MPEFILEINFO 
FILENAME*-' FILE1 
GRENAME GOODWIN f 
ACCTNAME*-' TEST ’ 

FOPTIONS+IO 2 5 
A0PTI0NS +4 
RECSIZE *-12 8 
DEYTYPE <-0 
DEYSUBTP+Z 
LDE 7 *<-4 

DRT <-5 

UNIT ^1 
FILEC0DE+ 0 
RECPTR ^0 
EOF <-0 

F LI MIT *-10 2 3 
L0GC0UNT+ 0 
PHYCOUIJT+Q 
BLKSIZE -*-12 8 
EXTSIZE <-128 
NUMEXTS <-8 
USERLAB <-0 
CREATOR <- ’ GOODWIN ’ 

LABADDR <-67110318 
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6 - Calls the FLOCK intrinsic to lock the file. The second 

element specifies the lockcond parameter of FLOCK (l for TRUE, 
0 for FALSE lock) • For example, 

A6C+-6 1 

locks the file associated with ABC unconditionally (lockcond = 
TRUE), 

Condition codes 

The condition codes possible if lockcond = TRUE are 


CCE 

(1) - 

successful 




CCG 

(0) - 

Not returned 

when lockcond 

= true. 


CCL 

(<0) 

- Request 
with the 

denied because 
dynamic locking 

this file was not 
aoption specified 

opened 
in the 


FOPEN intrinsic, or the request was to lock more 
than one file and the calling process does not 
possess the Multiple RIN Capability (see the MPE 
Intrinsics Reference Manual ) • 

The condition codes possible when lockcond » FALSE are 


CCE 

(1) - 

Successful 






CCG 

(0) 

- Request denied 
another process. 

because 

the 

file 

was locked by 

CCL 

(<0) 

- Request 

denied 

because 

this 

file 

was not opened 


with the dynamic locking aoption specified in the 
FOPEN intrinsic, or the request was to lock more 
than one file and the calling process did not 
possess the Multiple RiN Capability (see the MPE 
Intrinsics Reference Manual ), 

7 - Calls the FUNLUCK intrinsic to unlock the file. For example, 
ABC^7 

unlocks the file associated with ABC. 


Condition codes! 

CCE (1) - Successful 

CCG (0) - Request denied because the tile had not been locked by 
the calling process, 

CCL (<0) - Request denied because the file was not opened with the 
dynamic locking aoption of the FOPEN intrinsic, or the 
filenum parameter is invalid. 
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8 - Controls auto-ASCII conversion. Tne second element is a 0 to 

turn auto-convert OFF# or a l to turn auto-convert ON, When 
executing with auto-convert ON# APL-to-ASCII conversion is 
performed implicitly; when auto-convert is OFF# no such 
implicit conversion is performed. All files are initially 
opened with auto-convert OFF. Once set -- either by the user 
or by the open -- auto-convert does not change for the 
duration of the open unless explicitly set by the use of 
CTRLn. 

Note: See the MPE Intrinslcs Reference Manual for a discussion of the 

FCLOSE# FCONTROL# FSPACE, FPOINT# FSETMQDE# FGETINFQ# FLOCK# 
and FUNLOCK intrinsics. 


When a file is first opened# a 'FILE ERROR MODE' 


When this flag is o, any 
system which causes a 
cause APL to suspend 
consisting of the line on 


attempt to perform an 
non-1 return into the 
execution. An error 
which the error occurre 


flag 
operat 
contro 
repor 
d and 


is set to zero, 
ion on the file 
1 variable will 
t is printed# 
the words 'FILE 


SYSTEM ERROR.' 


The control variable may then be read to determine which error 
occurred, 

The 'FILE ERROR MODE' flag may be altered through the use of the 
control variable. Setting control with the vector 9 0 will set the 
flag to zero# thus causing APL to report errors* Setting control with 
the vector 9 1 will cause APL to ignore file system errors (which may 
still be checked by the return from the control variable). 


DATA VARIABLE 

Once a file has been opened# data can be written or read from this 
file using the data variable. 


The data variable is offered for sharing with the shared variable 
offer system function (DSVO) and the surrogate name DATAn# where n is 
a value from 0 through 9. The process named 'FILE' must be used as 
the left argument of the DSVO function. The form of the complete 
statement is as follows: 

'FILE' DSVO '[ datavariable ] DATAn' 

For example# 

'FILE' DSVO 'DID DATAO' 

When the above statement is executed# It returns the degree of 
coupling# as follows: 

0 - Sharing is not completed, 

2 - The offer is accepted. 
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For example# 


2 

L. 


'FILE' □SVO 'DID DATA O' 


Offer accepted 


WAITING TO A FILE 


If a character vector Is assigned to the data variable# the file 
system will perform an FWRITE to the file -- using the actual byte 
values of the characters as the data. The length (,o) of the character 
vector being written is used as the length parameter in the FWRITE 
intrinsic. The FWRITE control parameter is always 1# thus allowing 
embedded carriage control. The condition code status returned by 
FWRITE can be obtained by reading the control variable. 

Condition codes: 


CCE (1) - Successful 


CCG (0) 


End-of-file while attempting a write. 


CCL (<0) - Unsuccessful, The value returned is the negative of 

the error number returned by the FCHECK intrinsic. 

An example of writing to a file is as follows: 


DID-*- 'THIS 

IS 

RECORD 

0 ’ 

DID-*-' THIS 

IS 

RECORD 

1 * 

ABC 




DID*-'THIS 

IS 

RECORD 

2 ’ 

DID*-'THIS 

IS 

RECORD 

3 ’ 

DID*-' THIS 

IS 

RECORD 

4 ’ 


ABC 

1 

Writing is performed sequentially; thus record 0 is written first# 
then record 1# record 2# and so forth. To write data to a specific 
record in the file# a numeric scalar representing the record number is 
assigned to the data variable before assigning the character data. The 
FWRITEDIR intrinsic Is invoiced in this case. For example# 


DID *-12 

DID*'DIRECT WRITING' 
ABC 


Again# the status of the FWRITE is returned in the control variable# 
as follows: 


CCE (1) - Successful 
CCG (0) - End-of-file 

CCL (< 0 ) - Unsuccessful, The value returned is the negative of 

the error number returned by the FCHECK intrinsic. 
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READING A FILE 


Reading the data variable directs the file system to use the FREAD 
intrinsic. A character vector representing the contents of a record 
in the file will be returned. The FREAD is performed sequentially , 
and successive records are read each time the data variable is read. 
The number of words per record in the file as opened is used as the 
length parameter of FREAD. The condition code status returned by 
FREAD can be obtained by reading the control variable. 


Examples of reading a file are 


THIS 


THIS 


1 

THIS 


THIS 


THIS 

1 


DID 

IS RECORD 
DID 

IS RECORD 
ABC 


DID 

IS RECORD 
DID 

IS RECORD 
DID 

IS RECORD 
ABC 


0 

1 


2 

3 

4 


Reading the control variable returns the status of the condition code: 
CCE (1) - Successful 
CCG (0) - End-of-file 

CCL (<Q) - Unsuccessful. The value returned is the negative of 

the error number returned by the FCHECK intrinsic. 

To read a specific record in the file, a scalar value representing the 
record number is assigned to the data variable. This positions the 
file to that record, and the next time the data variable is read, the 
record is read. The FREADDXR intrinsic is used in this case. For 
example. 


DID+-2 

DID 

THIS IS RECORD 2 


CMNDS VARIABLE 

The CMNDS variable allows MPE commands to be used from APL by using 
the MPE COMMAND intrinsic. 
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The CMNDS variable is offered for sharing with the shared variable 
offer system function (DSVO), as follows: 

'FILE' nsvo 'CMNDS' 

2 

Note that the surrogate name can be reserved. 

The MPE command to be issued then is assigned to CMNDS as a character 
vector • 

CMNDS*-' FILE LIST ; DEV-LP' 

The condition code status returned by the COMMAND intrinsic can be 
obtained by reading the CMNDS variable, 

CMNDS 

1 

The negative of the error number is returned if an error occurred. 


CMNDS+'LTSTF TEST 1' 

CMNDS 

108 

/ 

L -Non-existent file 


DATA CONVERSION 

All data read or written by the file system is represented by APL 
characters. The internal value of any character may be obtained with 
the atomic vector system variable (DAY) by executing DAV*C, where C is 
a vector of characters for which the internal values are desired, APL 
will return a vector representing the indices of these characters in 
the 256-element atomic vector (see Section IV), For example, 

2 12 69 93 


The system function QCV can oe used to convert data from internal APL 
format to external formats compatible with other MPE subsystems, and 
from external formats to the internal APL format. The left argument of 
□CV is a scalar value used as a control to specify the type of 
conversion, or a 256-element vector which is indexed by the right 
argument of DAV to obtain a result. The right argument is the data to 
be converted; the result is the converted data. 


EXTERNAL TO INTERNAL APL CONVERSION 

The following values of the left argument ( control ) of QCV produce the 
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following external to internal APL conversions; 
control 

1 The right argument must be a character vector or unit or 
scalar character. The result is a character vector which 
is formed by treating the right argument characters as 
ASCII and performing an input conversion from external 
ASCII to internal APL, (See Appendix A for a conversion 
table.) 

2 Converts every two characters in the right argument to a 
numeric value in the result using integer conversion. If 
the input vector is of odd length# the last byte is 
ignored • 

3 Converts every four characters in the right argument to a 
numeric value in tne result using double integer 
conversion. If between one and three bytes are left over at 
the end of the right argument# they are ignored, 

4 Converts every four characters in the right argument to a 
numeric value in the result using real conversion. If 
between one and three bytes are left over at the end of the 
right argument# they are ignored, 

5 Converts every eight characters in the right argument to a 
numeric value in the result using real conversion. If bytes 
are left over at the end of the right argument# they are 
ignored. 

Note; An APL statement equivalent to 2 DCV VEC is; 

256±^( (L 0.5*n r/EC ) , ? ) P ( ( - □ 10 ) +[]/> *7 1 VEC ) 

INTERNAL APL TO EXTERNAL CONVERSION 

The following values of the left argument (control) of DCV produce the 
following internal APL to external conversions; 

control 

1 Converts the right argument# which must be characters# to 

external ASCII and returns a character vector result, 

2 Converts each right argument element to two characters in 

the result. The right argument must be a numeric scalar# 
vector# or unit in which each element is an integer between 
-32768 and 32767# or a domain error will occur. 

3 Converts each data value in the right argument to a 

four-character result. The right argument must be a scalar# 
unit# or vector numeric value in which each element is an 
integer between -2#147#483#648 and +2#147#4S3#647# or a 
domain error will occur. 
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4 Each data value in the rignt argument is converted to four 
characters in the result. The right argument must be numeric 
scalar# unit# or vector, 

5 Each data value in the right argument is converted to eight 
bytes in the result. The right argument must be numeric 
scalar# unit# or vector. 

In the last four of the above conversions# each result character is 
obtained by dividing the right-argument element into bytes and using 
these bytes as an index into DAV, This is simulated in APE# for 
”2 DCV# by 

QAV [Ql0+,$256 255Ti/?C] 

where VEC is the right argument of DCV, 

If the right argument of DCV is a 25fc-element vector (of any type)# a 
translation is performed whereby each character in the right argument 
is used# essentially# as an index into the left argument. The result 
has the same shape as the right argument (which must be a character 
vector)# and is the same type as the left argument. 

In this mode# DCV is equivalent to the APL expression 

leftarg[DAVirightarg] 
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FUNCTION DEFINITION 


SECTION 


VII 


A user-defined function is a function written by a user to perform a 
specific computation, A user-defined function Cor, more simply, a 
defined function ) can be established in a workspace in one of four 
ways: 

1, An existing defined function can be obtained from a stored 
workspace using the )LOAD, )COPY, or )PCOPY commands (see 
Section XI) , 

2. A defined function can be established with the DFX system 
command, 

3. A defined function can be created and saved using the APL\3000 
editor. 

4, A new defined function can be created by modifying an existing 
defined function with the APLV3000 editor. 

Once established in a workspace, a defined function can be displayed 
or executed, modified using the APIA3000 editor (see Section VIII), 
stored in a saved workspace, or deleted (destroyed). 


CANONICAL REPRESENTATION AND FUNCTION ESTABLISHMENT 

A canonical representation is a character matrix which must satisfy 
the following requirements: 

1, The first row of the matrix is the function header and must be 
in one of the forms described under the heading FUNCTION 
HEADER, below, 

2, The remaining rows, if any, of the matrix constitute the 
function body, and may consist of any combinations of 
characters, except that there may be no blank rows. 

The canonical representation of a defined function can be obtained by 
executing the OCR system function, and the vector representation of a 
defined function can be obtained by executing the DVR system function, 
A character vector argument containing the name of the function must 
be specified as the argument of DCR and DVR, 
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An example of DCR is: 

TES7+UCR 'ROOTS' 

TEST 

ROOTS 

'ENTER A NUMBER' 

’AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT' 

'AND THE CUBE ROOT' 

LABELl-.N+U 
LABEL2:A+N*i2 
LABEL3:B+N*Z3 
'THE SQUARE ROOT IS ',¥A 
'THE CUBE ROOT IS ’ 

'ENTER 0 IF YOU DO NOT WISH TO CONTINUE' 

LABELS:N+0 
0)/5 

See Section IV for complete discussions of the OCR and DVR system 
functions, 

If ROOTS is expunged with the DEX system function (see Section IV)* it 
is no longer available for use: 

DEX 'ROOTS' 

1 


ROOTS 
i/ALUE ERROR 
ROOTS 

t 

The function can be re-established by executing the DFX system 
function with TEST (the variable to which the canonical representation 
of ROOTS had been assigned) as its argument; 

DFX TEST 

ROOTS 

The function DFX produces as an explicit result a character vector 
representing the name of the function being fixed* while replacing any 
existing definition of the function with the same name. The function 
ROOTS now can be used again: 

ROOTS 

ENTER A NUMBER 

AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT 
AND THE CUBE ROOT 

□ : 

125 

THE SQUARE ROOT IS 11.18033989 
THE CUBE ROOT IS 5 

ENTER 0 IF YOU DO NOT WISH TO CONTINUE 

□ : 

0 
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The expression DFX n_ will establish a function if the following 
conditions are met: 

* The argument is a valid representation of a function. Any 

character vector or matrix which differs from a vector or 
canonical representation only in the addition of non-significant 
spaces (other than rows consisting of spaces only) is a valid 
representation, 

* The name of the function to be established does not conflict with 
an existing use of the name for an executing or halted function# 
or for a label or variable. 

If the expression DFX n_ fails to establish a function# no change 
occurs in the workspace and the expression returns a scalar index of 
the row in the argument where the fault was found. See Section IV for 
a complete discussion of DFX, 


FUNCTION HEADER 

A defined function may or may not return a result# and it may have one 
argument ( monadic )# two arguments ( dyadic )# or no arguments ( niladic ), 

If the function header contains a specification (left) arrow# the 
function returns a result# and the name to tne left of the arrow is 
the name used within the function to identify the result. 

The valence of a defined function is defined as the number of 
arguments it takes. Thus# a defined function may have a valence of 
zero (no argument)# one (one argument)# or two (two arguments). This 


ows six 

possible header 

forms as follows: 





EXPLICIT 

NO EXPLICIT 


TYPE 

VALENCE 

RESULT 

RESULT 


Dyadic 

2 

R^A FUNCTIONNAME B 

A FUNCTIONNAME 

B 

Monadic 

1 

R^FUNCTIONNAME b 

FUNCTIONNAME 

B 

Niladic 

0 

R^FUNCTIGNNAME 

FUNCTIONNAME 



The name of a defined function is global (see LOCAL AND GLOBAL NAMES# 
below). The names used for arguments of a function are local to the 
function. Additional local names may be designated by listing them in 
the function header after the function name and argument name(s). 
These additional names must be separated from the function name and 
argument(s)# and from one another# by semicolons. For example# 

AREA+RADIUS CIRCLE AREA DEGREES;LOC All;LOC AL2 

A name# except the function name itself# may not be repeated in the 
function header. Argument names used in the function header do not 
need to be used within the body of the function. 
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LOCAL AND GLOBAL NAMES 


When a function is executed, it often is necessary to use intermediate 
results or temporary functions which have no significance outside the 
function. The use of names local to the function, so designated by 
their appearance in the function header, or by being used as labels, 
relieves tne programmer of the requirement of keeping track of such 
transient names, and allows greater freedom in the choice of names 
(the same name can be used independently in several functions as long 
as it is local to its function). 

The name of the function itself, and names used in the function body 
that are not designated as local by being included in the function 
header, are defined as global names. Global names have significance 
both inside and outside the function and may be referenced in the 
workspace (assuming that the function is established in the 
workspace), For example, the following function computes the areas of 
sectors of circles. 


UCR 'CIRCLEAREA' 

AREA+RADIUS CIRCLEAREA DEGREES\LOCALliLOCAL2 
ARE A*- (OR ADIUS*2) ^DEGREE 5*360 
DIAMETER«-RAVIUS*2 
PiTHIS IS A COMMENT 

The names RADIUS and DEGREES are argument names defined as local by 
being included in the function header. The name CIRCLEAREA is the 
function name and is global . In addition, the name DIAMETER is global 
because it is included in the body of the function but not in the 
function header. The names CIRCLEAREA and DIAMETER, being global, can 
be referenced from the workspace outside the function. Note that 
names global to one function may be local to another calling function. 
Therefore local/global distinction is on a function-by-function basis. 

348 CIRCLEAREA 12.852 
13582.40189 

DIAMETER 

695 

A local name may be the same as a global name, and any number of names 
local to different functions may be the same. During the execution of 
a defined function, a local name will temporarily exclude from use a 
global object of the same name. If the execution of a function is 
interrupted (leaving it either suspended or pendent ? see Section X), 
the local objects retain their dominant position during the execution 
of subsequent APL operations, until such time as the halted function 
is completed. 

The localization of names is dynamic , that is, a local name has no 
effect except when the defined function is being executed. When a 
defined function uses another defined function during its execution, a 
name local to the first (or outer ) function continues to exclude 
global objects of the same names from the second (or inner ) function. 
This means that a name localized in an outer function has the 
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significance assigned to it in that function# but has no further 
localization in an inner function. The same name localized in a 
sequence of nested functions has the significance assigned to it at 
the innermost level of execution. 

The shadowing of a name by localization is complete# in that once a 
name has been localized its global values are inaccessible# even if 
nothing is assigned to it during execution of the function in which it 
is localized. 


BRANCHING AND LINE, NUMBERS 

Lines in a function are normally executed sequentially, from line 1 
through the highest numbered line# and execution terminates at the end 
of the last line in the function. This normal order can be modified 
by branching . Branching is used in iterative procedures# in choosing 
one out of a number of possible lines# and in other situations where 
the normal order of line execution is not desired. 

Lines in a function have reference numbers associated with them# 
starting with the number one for the first line in the function body 
(the function header is number zero)# and continuing with successive 
integers. Thus# the statement +11 specifies a branch to the eleventh 
line in the function body. When the expression is executed# branching 
occurs and line number 11 is executed next# regardless of where the 
branch statement itself occurs, (The branch statement +11 may be in 
line It# in which case an infinite loop may result until interrupted 
by an action from the terminal,) 

A branch statement always starts with the branch (or right) arrow on 
the left# followed by any expression. For the statement to be 
effective# however# the expression must evaluate to an integer# to a 
vector whose first element is an integer# or to an empty vector. Any 
other value results in a DOMAIN or RANK error. If the expression 
evaluates to a valid result# then the following rules apply: 

* If the result Is an empty vector# the branch has no effect and 
the next statement in tne function is executed. If there is no 
next statement (the branch is the last statement)# the function 
terminates normally, 

* If the expression evaluates to the number of a line in the 
function# that line is the next to be executed, 

* If the result of the evaluation is a number out of tne range of 
line numbers in the function# the function terminates, (The 
number 0 and all negative numbers are outside the range of line 


numbers for 

any 

f unc 

tion,) 





Because zero is 

of te 

n a 

convenient result 

to 

compute# 

and it is 

never 

the number of a 

line 

in 

the body of a func 

tion# it is 

often used 

as a 

standard value 
function, 

for 

a 

branch intended 

to 

end the 

execution 

of a 
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An example of branching 


UCR * ROOTS 1 

ROOTS 

'ENTER A NUMBER' 

'AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT' 
'AND THE CUBE ROOT' 

LABELl:N+n 
LA3EL2 : A+-N*i2 
LABELS:B+N*i 3 
'THE SQUARE ROOT IS 
'THE CUBE ROOT IS ' 

'ENTER 0 IF YOU DO NOT WISH TO CONTINUE' 

LABELH :N+-B 

•+ (N* 0 ) / 5 •< -Branch statement 


ROOTS 

ENTER A NUMBER 

AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT 
AND THE CUBE ROOT 

0 : 

574 

THE SQUARE ROOT IS 23.9582971 

THE CUBE ROOT IS 8.310694107 

ENTER 0 IF YOU DO NOT WISH TO CONTINUE 

□ : 

0 -< --Terminates execution when 0 entered (does not branch) 


The compression function in the form U/V (the statement -*(N>0)/5 
above) gives V if U is equal to one ( true )# and an empty vector if U 
is equal to 0 ( false ). Thus# the statement ->(N*0)/5 in ROOTS is a 
branch statement which causes a branch to line 5 if the condition N*0 
is true # and a branch to an empty vector (normal sequence) when the 
condition is false . in this case# there is no next statement and the 
function terminates. 


LABELS 

If a line occurring in the body of a function is prefaced by a name 
and a colon# the name is assigned a value equal to the line number 
automatically upon function execution, A name used in this way is 
called a label . Labels are advantageous when it is expected that a 
function may be changed# because a label automatically assumes the new 
line number of its associated line as other lines are inserted or 
deleted. 

The name of a label is local to the function in which it appears# and 
must be distinct from other label names and from local names in the 
function header, 

A label name may not appear immediately to the left of a specification 
arrow. In effect a label acts like a local constant. 
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Examples of labels are 


BCR 'ROOTS' 

ROOTS 

’ENTER A NUMBER' 

'AND- THE COMPUTER WILL COMPUTE THE SQUARE ROOT' 
'AND THE CUBE ROOT' 


LABELliN+U 
LABEL2:A+N*i2 
LABEL3 : B+N*i3 
'THE SQUARE ROOT IS '^A 
'THE CUBE ROOT IS ',?B 
'ENTER 0 IF YOU DO NOT WISH 
LABELS: .V«-Q 
0)/5 


TO CONTINUE' 


Labels 


COMMENTS 

The symbol a signifies a comment . A comment is inserted in a function 
for informative purposes only# and is not executed. The symbol may 
occur anywhere within a line; however, everything to the right of the 
comment symbol in the line is ignored at execution, A comment may not 
be placed in the header line, 

A comment example: 

BCR 'CIRCLE AREA' 

ARE A+-R ADIU S CIRCLE ARE A DEGREES 
ARE A*-(OR ADI US*2)*DEGREE Si 360 
DIAMETER+RADIUS*2 
(\THIS IS A COMMENT 
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APLX3000 EDITOR 


SECTION 


The APLV3000 editor is used to create and modify APL or APLGQL 
functions ana to create and modify one- or two-dimensional character 
data. The editor recognizes lines of input and operates on lines of 
text and on characters within these lines, within the editor, both 
line numbers and a cursor to the line currently being edited are 
maintained* so that editing may specify line numbers or a line 
position relative to the cursor. 


EDITOR FEATURES 

* The editor retains instruction parameters from one edit 
instruction to the next, so that in successive applications of an 
edit instruction, the parameters often need not be respecified, 

* Most edit instructions may be abbreviated, 

* In the absence of specified parameters, default parameters are 
assumed, 

* in all instructions which require that a line be specified 

(except ADD), the position of the cursor is assumed if an 
explicit line number is absent. If a line number is specified, 
it will be used and the cursor is adjusted to reflect the new 
current line. The instructions which are used to set patterns 

(DELTA, CURSOR, and so forth), may be usea without parameters to 

determine the current parameter setting, 

* In some instructions, a character string may be specified instead 
of a line number. In this case, the next line starting with the 
line in which the string is located is the selected line, 

* Line numbers may range between 0,000 to 99999,999 for a maximum 
of 100,000 lines. 

To access the editor, the system command )EDIT is entered, optionally 
followed by the name of an existing function or character variable to 
be edited. If a name is not specified, the editor immediately enters 

ADD mode, and new lines may be entered. If the name of an existing 

function or character variable is specified, the editor prompts with a 
"greater than" (>) symbol for an edit instruction. 
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An example of accessing the editor is as follows 


) EDIT ROOTS - Existing function specified 

AVI FUNCTION 
> ADD 

[12] fl THIS IS A COMMENT 

f i 3 1 

L J return 

>END - 


) EDIT - Editor enters ADD mode when no existing function specified 


[o] 

THIS IS LINE 

ZERO 

[l] 

THIS IS LINE 

ONE 

[23 

LINE TWO 


[33 

THREE 


[4] 

_4 


[53 

JL 


[63 

_6 


[7] 

return 



> 


EDIT INSTRUCTION SYNTAX 


Table 8-1 lists all edit instructions and shows the syntax and the 
abbreviation twhere applicable) for each instruction. 

Table 8-1. Edit Instructions 


A [DD] 


linespec 


string 


[delta] 


BCR1EF3 

CCHANGE] [ character [ patternstring ] character [ changestring ] 
character Crangelist]J 


COCPYJ lineblock 
lineblock = linerange 


linespec [delta] 


blank 


CUCP.SOHJ 

# 


linespec 
+ integer 


- integer 


string 


" string 1 
rangelist j 


DCELETE] 

delta = [,] linenumber 


DELTCAJ 

A 


[decimalnumber3 
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Table 8-1. Edit Instructions (continued) 


END [APL ] 

LAPLGOLJ 

FIND [string] [rangelist] 


HIELP] \ [ instruction ] 
EXPLAIN? 


linerange = fllnespec 

< linespec > < separator > < Iinespec > 
< linespec > < separator > 

< separator > < linespec > 
separator 
.ALL 


linespec = [ line number 
FIRST 


LAST 

CURSOR 


L [ 1ST] f rangelist " 
string 
ALL 
FIRST 
_LAST 

LOCK [APL ] 

LAPLGOLJ 

MATCRIX] [ variablename ] 

MtODlFY] rstring - 
[ rangelist 

QUIT 

rangelist = [ linerange it 
rnge i, rlist ] 

R CEPLACE3 [string 1 [d 
rangelist 

RES [EQUENCEJ lineblock: 


linerange]. • . it linerange 


[deltaJ 


separator = (7 





Table 8-1. Edit Instructions (continued) 


string = <character > < text not containing character > < character > 

UNDO [ integer 3 L grainspec J 

grainspec = , (MINES] 1 

I |C COMMANDS]) 

blank 

VEC[TOR] [ variablename J 

VERCBQSEJ 


EDIT INSTRUCTIONS 


ADD INSTRUCTION 

The form ot the ADD instruction is 

A[DDJ linespec [ delta ] 
string 

The ADD instruction places the editor into a mode to accept new lines 
of input. If parameters are not specified, the text is added to the 
end of the edit file using the present value of delta to increment the 
line numbers. If linespec Is specified, the text is added starting 
with the specified line and thereafter increasing the line number by 
the delta specified, or by the default delta supplied by the system 
(the initial default value is one). If the line number specified 
already exists, the text Is added following that line by applying the 
proper delta. If this is not possible, an error is reported. A null 
line, that is, a line with just a carriage return, terminates the ADD 
instruction. The system retains a delta value, initially set to one, 
which is updated by any edit instruction specifying a delta parameter. 
The delta value can be specified once, therefore, and retained as long 
as necessary without further respecification. When there Is no more 
room to add lines using the present delta, the system divides the 
delta by 10 so that more lines can be added. This is repeated until 
delta becomes ,001. 


BRIEF INSTRUCTION 

The form of the BRIEF instruction is 
BIRIEF) 

The BRIEF instruction is used to set the editor response mode to 
brief, in which case messages are either shortened or are omitted. The 
opposite setting of the instruction response mode is VERBOSE (the 
default mode). 
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CHANGE INSTRUCTION 


The form of the CHANGE instruction is 

CCHANGE] [ character [patternstring ] character [ changestring ] 
character [ ranaelist ] 

The CHANGE instruction is used to change one pattern within a range of 
lines to another pattern (which may be null]. If rangelist is not 
specified, the current line is assumed. If both patterns are omitted, 
whatever patterns were most recently associated with a CHANGE 
instruction are used again. if a single pattern is specified, it 
becomes the new change pattern and the former search pattern is 
retained. If both patterns are specified, the first string 
( patternstring ) is a search pattern and the second string 
( changestring ) is the change pattern. 

An example of the CHANGE instruction is shown below: 

> LIST 0 

[0] THIS IS LINE ZERO 

> CHANGE 'ZERO'O' 0 

[0] THIS IS LINE 0 

> LIST 0 

[0] THIS IS LINE 0 


COPY INSTRUCTION 

The form of the COPY instruction is 
COtPY] lineblock 
where 

lineblock = linerange : linespec [ delta ] 

* ? 
blanfc 

The COPY instruction is used to duplicate one or more lines of text 
elsewhere in the text. This instruction requires the specification of 
a linerange to be copied and a linespec to specify the target point 
for copying. It is not possible to delete existing lines within the 
COPY instruction by overlaying a copied line number on top of an 
existing line. 

An example of the COPY instruction is shown below: 


>COPY 2 7 
[2] => [7] 
> LIST 7 
[7] LINE TWO 
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CURSOR INSTRUCTION 


The form of the CURSOR instruction Is 

JCUCRSORJ) f linespec 
I* I + integer 

- integer 
string 

The CURSOR instruction is used wither to indicate the current position 
of the cursor or to reposition it. To find the current cursor 
position, either the word CURSOR or the symbol * may be entered 
without other parameters. The addition of parameters to the CURSOR 
instruction causes the cursor to be relocated according to the 

parameters. If linespec is specified, the cursor moves to the 

specified line? if string Is specified, tne cursor moves to the next 
line beyond the present cursor position in which the string is 
located. The + integer and - integer parameters move the cursor 

forward or backward in the text relative to the present cursor 

location. 

An example of the CURSOR instruction is shown below: 


[7] 

[7] 

0 


DELETE INSTRUCTION 

The form of the DELETE instruction is 

DLELETEJ [string ] 
rangelist 


The DELETE instruction is used to delete lines from the text. If no 
parameters are specified, the line currently indicated by the cursor 
position is deleted. If string is specified, the next line In which 
the string occurs is deleted. If rangelist is specified, the lines in 
the list are deleted. 

Note: in VERBOSE mode each line is printed as it is deleted. 

An example of tne DELETE instruction is shown below; 


> DELETE 1 

[7] LINE TWO 


> cursor 
cursor = 

>_* 

CURSOR = 
> CURSOR 
WAS [7] 
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DELTA INSTRUCTION 


The form of the DELTA instruction is 
jDELT C AIJ |=j ( decimalnumber 3 

The DELTA instruction is used to set the increment value for adding, 
replacing, copying, and resequencing lines. The default value of delta 
is one. The optional specification of a delta in the COPT, 
RESEQUENCE, ADD, and REPLACE instructions automatically changes the 
value of the default delta. 

An example of the DELTA instruction is shown below: 

> DELTA =.1 
5/45 [1] 

> ADD 

[6.1] THE INCREMENT IS .1 

[ 6 . 2 ] 


END INSTRUCTION 

The form of the END instruction is 
END [APL I 

[aplgolj 

The purpose of the END instruction is to terminate editing and to 
translate the text into internal APL or APLGOL form suitable as a 
function for execution by APL, If a former version of the function 
existed, the new version now replaces the former. If, in translation 
to the internal form, errors are discovered which mak.e it impossible 
to create a new internal form, an indication of the error and a 
listing of the line in which the error was found are displayed, and 
the system retains the internal form as well as the text in the editor 
for further editing. If the error is hard to correct, either the 
MATRIX or VECTOR instruction may be used to save the text as a 
character matrix or vector for later editing. 

The optional APL and APLGOL parameters specify the particular 
translator to be used (that is, the Kind of function being edited). 


EXPLAIN INSTRUCTION 

See the HELP instruction below. 


FIND INSTRUCTION 

The form of the FIND instruction is 
FCIND3 [string] Crangelis13 
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The FIND instruction is used to locate the line containing the next 
occurrence of the string starting witn the cursor position. If the 
string is not specified, the search string from the last FIND 
instruction is used. The rangelist parameter may be used to limit the 
search, 

An example of the FIND instruction is shown below: 


> FIND 'LINE TWO ' 

[2] LINE TWO 


HELP INSTRUCTION 


The form of the HELP instruction is 


(HtELPJ 
j EXPLAIN 


[instruction] 


The HELP instruction lists permlssiole edit instructions. If followed 
by an Instruction parameter, a brief explanation of that particular 
instruction is provided. 

Examples: 


>HELP 

THE EDIT COMMANDS ARE: ADD , BRIEF , CHANGE , COPY, CURSOR , DELETE , 
DELTA , END , FIND , HELP , LIST , LOCK , MATRIX . MODIFY , QtflT, 
REPLACE , RESEQUENCE , , VECTOR , MD VERBOSE, 

TO OBTAIN FURTHER DATA ON ANY OF THESE COMMANDS , 

'HELP' FOLLOWED BY THE COMMAND NAME. 

> HELP MATRIX 

THE MAT IRIX ] COMMAND IS USED TO CREATE A CHARACTER MATRIX FROM 
THE TEXT IN THE EDIT BUFFER. THE CHARACTER VARIABLE MAY THEN BE 
USED AS DATA WITHIN THE SYSTEM OR LATER TURNED INTO A PROCEDURE 
MATRIX WITHOUT A NAME WILL STORE THE DATA IN THE VARIABLE WHICH 
WAS EDITED (IF ANY), MATRIX VARIABLE NAME> WILL STORE IN THE 
SPECIFIED NAME. (SEE VECTOR) 


LIST INSTRUCTION 


The form of the LIST instruction is 


L[1ST] 


’" rangelist" 

string 

ALL 

FIRST 

LAST 


The LIST instruction is used to print lines. If a parameter is not 
specified, the line currently indicated by the cursor is listed. If 
string is specified, the next line starting with the line in which the 
string occurs is listed. If rangelist is specified, lines in the list 
are listed. 
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An example of the LIST instruction is shown below 


> LTST ALL 
LO] 

[ 1 ] 

12 ] 

[3] 

[4] 

[ 5 ] 

16] 

[ 6 . 1 ] 


THIS IS LIVE 0 
THIS IS LI HE ONE 
LINE TWO 
THREE 

4 

5 

6 

THE INCREMENT IS .1 


LOCK INSTRUCTION 

The form of the LOCK instruction is 

LOCK [APL ] 

[APLGOLJ 

The LOCK instruction is similar to the END instruction, in that it is 
used to terminate the editing of a function and have the function 
translated into internal APL or APLGOL form for execution. If the 
translation is successful, however, the function then is marked as 
locked, and it is not possible thereafter for the function to be 
unlocked, edited, or read. 


MATRIX INSTRUCTION 

The form of the MATRIX instruction is 
MATCRIX] C variablename ] 

The MATRIX instruction stores the edit text as a character matrix with 
rows sufficiently long to contain the longest text line. The variable 
may be edited later and a function or other variable produced. If 
varlablename is omitted, the name of the function or variable used in 
the ) EDIT command is replaced by the character matrix. 


MODIFY INSTRUCTION 


The form of the MODIFY instruction is 


M[ODIFY J 


string 

rangelist 


The MODIFY instruction is used to modify the contents of a line or 
range of lines, depending on the parameter specified. If no parameter 
is specified, the line currently indicated by the position of the 
rursor is modified; if string is specified, the next line starting 
*itt\ the line in which the string is located is modified; if rangelist 
is specified, lines in the list are modified, one at a time. 
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When a line is to be modified# the line number is printed# followed by 
the line# after which special modification characters may be used as 
sub-editing instructions to alter the contents of the line, A 
sub-editing template line is created by spacing out under the line to 
the point where the sub-editing is to be done and then entering the 
appropriate single character instruction# possibly followed by 
replacement or insertion text. When this is done# the edited line is 
printed again to reflect the modifications# and further modifications 
can be entered, A null line (signified by just a carriage return) 
terminates the modification process, 

MODIFICATION INSTRUCTION MEANING 

D Delete the above character, 

R Starting at the above position# replace 

the following text, 

I Starting immediately before the above 

position# insert the following text, 

/ Delete entire line. 

Note: A string of delete (D) characters may be followed by a single 

insertion (I) or replacement (R) character, followed by the 
insertion/deletion text? otherwise only one action may be 
specified per modification template line. 

An example of the MODIFY instruction is shown below: 

> MODTFY 1 
LI] 

THIS IS LIME ONE 

DDDI1 

THIS IS LINE 1 

QUIT INSTRUCTION 

The form of the QUIT instruction is 
QUIT 

The QUIT instruction terminates all editing# deletes any text being 
edited# and returns to immediate execution mode in the APL system. 
Note that a function is not changed if tne QUIT instruction is 
performed. 


REPLACE INSTRUCTION 

The form of the REPLACE instruction is 

R CEPLACE3 [string 1 ( delta ) 
rangel1st 
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The REPLACE instruction is used to replace one or more lines, 
depending on the parameters specified. If no parameters are 
specified, the line currently indicated by the cursor is replaced. If 
string is specified, the next line containing the string is replaced. 
It rangelist is specified, each line in the list is replaced. In 
replacing a line, the current line is listed, and the replacement line 
may then be entered. Once the rangelist is exhausted, the editor 
switches to the ADD mode, so that lines may be replaced and 
immediately followed with new lines without having to use multiple 
instructions. The optional delta specification is used for the ADD 
mode incrementing. Entering a null line (carriage return) terminates 
the process. 

An example of the REPLACE instruction is shown below: 


>REPLACE 1 

,5 




[1] 

THIS 

IS 

LINE 1 


Cl] 

THIS 

IS 

A NEW LINE 1 


C 5 ] 

5 




[5] 

THIS 

IS 

THE NEW LINE 

_5 

[5.1] 





>LIST ALL 





[0] 

THIS 

IS 

LINE 0 


Cl] 

THIS 

IS 

A NEW LINE 1 


C 2 ] 

LISE 

TWO 



[3] 

THREE 



C 4 ] 

4 




C 5 ] 

THIS 

IS 

THE NEW LINE 

5 

[6] 

6 




C 7 ] 

LI HE 

TWO 



[7.1] 

THE INCREMENT IS .1 



> 


RESEQUENCE INSTRUCTION 

The form of the RESEQUENCE instruction is 
RESEQUENCE) llneblock: 

The RESEQUENCE instruction is used either to resequence portions or 
all of a function or data, or to rearrange lines of the function or 
data to appear elsewhere, thus in effect acting as a move instruction. 
It is not possible to overlay existing lines with resequenced line 
using the RESEQUENCE instruction. 
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An example of the RESEQEUNCE Instruction is snown below 


> RE SEQUENCE 0,,5 
[0]=>[0.5] 


THIS TS LINE 0 


>LIST ALL 

[0.53 

[ 1 ] 

[ 2 ] 

[33 

[43 

[53 

[63 

[73 

[7.13 

UNDO INSTRUCTION 


THIS IS A NEW LINE 1 
LINE TWO 
THREE 
4 

THIS IS THE NEW LINE 5 
6 

LINE TWO 

THE INCREMENT IS .1 


The form of the UNDO instruction is 
UNDO ( integer 3 ( grainspec j 

The UNDO instruction negates the effect of the last command, that is, 
it "undoes" a command, UNDO affects ADD, CHANGE, DELETE, COPY, 
MODIFY, REPLACE, and RESEQUENCE (note that this does not include UNDO 
itself), 

The grainspec parameter specifies whether to UNDO on a line^by- line 
(LINES] basis, or on a command-vby-command (COMMANDS] basis. The 
default is LINES, The integer parameter specifies how many "grains" 
to UNDO, that is, how many LINES or COMMANDS, The default is one. 


VECTOR INSTRUCTION 

The form of the VECTOR instruction is 
VEC(TOR] [ variablename ] 

The VECTOR instruction stores the edited text as a character vector 
with carriage return characters used to separate the lines. The 
variable may be edited later and a function or other variable 
produced. If variablename is omitted, the name of the function or 
variable used in the )EDIT command is replaced by the character 
vector • 


VERBOSE INSTRUCTION 

The form of the VERBOSE instruction is 
VERtBOSE] 

The VERBOSE instruction is used to set the editor response mode to 
verbose, in which case messages regarding the effect of instructions 
are fully printed. The opposite setting of the instruction response 
mode is BRIEF, The default mode is VERBOSE, 


8-12 




APLGOL is a language which is a superset of APL, adding additional 
statement-sequence control structures. A workspace may contain any 
mixture of APL and APLGOL functions, which can be used in any 
combination, A single function, however, must be all APL or all 
APLGOL; the two languages may not be mixea within the same function. 

In APlGOL, Keywords are used in conjunction with APl expressions 
(except APL branch expressions, which cannot be used in APLGOL) to 
describe the control flow within a given procedure. For example, the 
APL procedure 

Z+FACT N 
+(~N<1)/L 
Z<-1 
■►0 

L:Z+NxFACT N-l 

is comparable to the APLGOL procedure 


PROCEDURE Z+FACT N 
IF N <1 THEN 
Z+1 
ELSE 

Z+NxFACT .V-1; 

END PROCEDURE 

APLGOL Keywords are formed from an alphabetic string. 

The external attributes of an APLGOL function are the same as those of 
an APL function; it is named according to the same rules as APL 
functions and has an optional result? zero* one, or two arguments; 
and zero or more local variables. 

The header line of an APLGOL function is similar to an APL header 
except it is preceded by the Keyword PROCEDURE, and terminated with a 
semicolon. The list of local variables, if any, is separated by commas 
instead of semicolons. For example. 


PROCEDURE Z+L FUNC R 9 L1 9 L2 9 UI0; 


defines an APLGOL function header equivalent to the APL function 
header 


Z+L FUNC R;L1;L2;DI0 
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GENERAL APLGOL FUNCTION FORMAT 


In addition to the header# an APLGOL function is composed of one or 
more statements followed by END PROCEDURE, statements are written in 
free-field format and are terminated by semicolons, 

APLGOL comments are placed between paired comment symbols (W)# while 
in APL a comment is defined as anything on a line to the right of the 
leftmost comment symbol. 

APLGOL functions are written in a tree-field format # while APL 
functions are line-oriented . APLGOL statements may be entered in any 
convenient format. When the function is subsequently edited# the 
listing will be formatted to snow a canonic form with indenting used 
to depict the depth and shape of the nested control structures. 

For example# an APLGOL procedure could be entered as: 


PROCEDURE SAMPL ; IF A*B THEN BEGIN A+C ; WHILE J*l (*7-1+1) *2 
DO BEGIN L2+L3*-LHL-J-lim+-L-l+oY+mi7 DYADF L ; END ; END ; ELSE ; 
A+D; IF 2 = p pZ DO EXIT Ci 2 ]«- (1 + pZ ) -N ; Z+N t C , N , P, Q , R ; END 
PROCEDURE 


while subsequent editing would show it as: 


CO] 

Cl] 

12 ] 

[3] 

[4] 

[5] 

[ 6 ] 

[7] 

[8] 

[9] 

[ 10 ] 
Cll] 
[ 12 ] 

[13] 

[14] 

[15] 


PROCEDURE SAMPL 
IF A*B THEN 
BEGIN 
A+-C ; 

WHILE ,/>L (JV-l-I) *2 DO 
BEGIN 

L2«*-L3«-L4JW-1; 

£,4«--L-l + py«-7 DYADF L ; 
END; 

END 

ELSE 

A+D; 

IF 2-ooZ DO 

EXIT CC2X 1 + pZ) t,V; 

Z+N 9 C,P,Q,R; 

END PROCEDURE 


Table 9-1 lists the syntax for all APLGOL statements. 
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Table 9-1. APLGOL Syntax 


aplgol function = PROCEDURE header ? statement list 
" END PROCEDURE 

header = [ identifier 3 identifier [ Identifier 3 
[ identifier 3. , • t identifier 3 

statement list = [ statement 3 [ statement list ] 

statement = expression 

NULL 

EXIT [ expression ] 

BEGIN statement list END 

HALT [ expression ] 

FOREVER DO statement 

ASSERT expression ; expression 

IF expression DO statement 

IF expression THEN statement ELSE 
statement 

WHILE expression DO statement 

REPEAT statement list UNTIL expression 

CASE expression OF integer constant 
BEGIN subcase list + END CASE 

branch = [BRANCH 
LEAVE 
ITERATE 
RESTART. 

control = [PROCEDURE" 

FOREVER 
IF 

WHILE 
REPEAT 
.CASE 

subcase subcase label ; statement 

subcase label = [integer scalar constant 

integer vector constant 








Table 9-1. APLGOL Syntax (continued) 


subcase list 

= subcase (subcase list] 


DEFAULT 

comment = 

lamp symbol (text not containing a lamp symbol] 


lamp symbol 

Note: Comments may appear anywhere except in the middle of a 

vector constant# within a keyword# or within an identifier. 


APliGOL STATEMENTS 
NULL STATEMENT 

The form of the NULL statement is 
NULL 

NULL is a no-operation statement. It is used when a dummy statement 
is needed to complete a control structure but when no other action is 
necessary, 

EXIT STATEMENT 

The form of the EXIT statement Is 
EXIT ( expression ] 

The EXIT statement is used to return from tne current procedure. If 
the optional expression is specified# the expression is executed just 
prior to returning, 

BEGIN STATEMENT 

The form of the BEGIN statement is 
BEGIN statement list END 

The BEGIN statement is the usual compound statement which is used to 
group multiple statements# so that they can be treated as a single 
statement within the control structure. Note that a BEGIN/END pair 
does not constitute a block as in ALGOL (permitting a new name scope)? 
local variables may only be specified in a function header line. 

An example: 

[0] IF KLARN S 6 DO 

[1] BEGIN 

[2] f ARGGH: KLARN IS BELOV SEVEN , NAMELY , ’ ,▼ KLARN ; 

[3] EXIT ; 

[4] END ; 
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HALT STATEMENT 


The form of the HALT statement is 
HALT [ expression ] 

When a HALT statement is encountered, execution is suspended and the 
system enters immediate execution mode. If the optional expression is 
specified, it is evaluated just prior to the suspension. If a HALT 
statement is used in place of a call to an unwritten module, the 
expression can be used to print a message that the particular 
procedure has reached this point before suspending. At this point, it 
is possible to simulate the effect of the missing module before 
continuing further execution. 

For example, a compiler system control routine might be started as: 


[0] 

PROCEDURE COMPILE 



[1] 

FOREVER DO 



[2] 

BEGIN 

ft 

LOOP TO PROCESS EACH INPUT ft 

[3] 

SCANNER; 

ft 

INVOKE THE SCANNER MODULE ft 

[4] 

PARSER; 

ft 

INVOKE THE PARSER MODULE ft 

[5] 

HALT 'INTERPRETER'; 

ft 

NO INTERPRETER YET ft 

[6] 

END; 



[7] 

END PROCEDURE 




When line [5] is executed, the text INTERPRETER is printed and 
execution is suspended. 


ASSERT STATEMENT 

The form of the ASSERT statement is 
ASSERT expression : expression 

The ASSERT statement is intended as an aid in the proof-of-correctness 
programming approach. The ASSERT statement allows the programmer to 
mafce assertions regarding the program which the system may optionally 
test. The second expression in the statement is a boolean expression 
giving a scalar (unit) truth value for the assertion. For example, if 
the variable I must lie between 0 and 9 inclusively, the assertion 
would be: 

ASSERT 10: (J>0)aJ<9; 

which would evaluate to a 1 if true and a 0 if false. 

The first expression is used to give the relative importance of the 
assertion and must evaluate to an integer between “32768 and 32767. 
For example, a value of 1 would indicate a trivial assertion, while a 
value of 10 would indicate a less trivial one and a value of 100 would 
indicate a major assertion. 

The actual mechanics of executing ASSERT statements depends on the 
system variable DAL, which contains tne current assertion checking 


9-5 



level. This variable indicates the lower bound of assertions to be 
checked and has an integer range between “32768 and 32767. Each time 
an ASSERT statement is encountered, the assertion level is checked 
against the first expression in the statement. If the assertion level 
is smaller than the system variable the statement is regarded as a 
comment and not executed. 

If the first expression is larger than or equal to the assertion 
level, however, the second expression is evaluated. If the result of 
the evaluation is true, the program continues; otherwise execution is 
suspended, and an ASSERTION FAILED message is printed together with 
information to locate the assertion in the procedure. At this point 
the system suspends execution to allow the user to correct the 
situation. 

If the assertion level is lower than the lowest specified level, all 
assertions are checked. An example of assertion usage might be; a 
program may be debugged initially with the assertion level set low to 
check all assertions. When the assertions no longer fail, the 
assertion level may be raised to the highest-valued assertion in the 
program, so that only the most major assertions are checked. Should a 
malfunction subsequently occur in a program assumed to be checked out, 
the assertion level can again be lowered to check all of the original 
assertions again. Assertion statements remain as comments in a 
completed program and are intended to be useful documentation and 
debugging aids. 


IF STATEMENT 

APLGOL has two separate forms of IF statements. The single-arm 
conditional evaluates the expression after the IF, and if it is true, 
executes the statement following the DO. The form of the single-arm 
conditional IF statement is 

IF expression DO statement 

For example, 

TF A >5 DO 
B+A |5; 

The double-arm conditional evaluates the 
executes the statement following the THEN 
executes the statement following the ELSE, 
conditional IF statement is 

IF expression THEN statement ELSE statement 

For example, 

IF A >5 THB9 
A+CiS 
ELSE 
A+A+ 1; 


expression after the IF and 
if it is true; otherwise it 
The form of the double-arm 
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Note that the expression must evaluate to a boolean CO or 1) scalar 
unit, or vector result. It the expression evaluates to a multi¬ 
element vector, an implicit 1w expression is performed to select the 
first element. 


WHILE STATEMENT 

The form of the WHILE statement is 
WHILE expression DO statement 

The WHILE statement first evaluates the expression which must evaluate 
to a boolean scalar, vector, or unit result. If the first element of 
expression is true, the statement is performed and the process is 
started over with the re-computation of the expression. Otherwise, 
control proceeds to the next statement. 


REPEAT STATEMENT 

The form of the REPEAT statement is 

REPEAT statement list UNTIL expression 

The WHILE statement is termed a pre-checked loop ; the REPEAT statement 
is referred to as a post-checked loop . A post-checked loop means that 
the statement list is performed at least once, after which the 
expression following the UNTIL is evaluated and checked. If the first 
element of this expression , which must evaluate to a boolean scalar, 
vector, or unit, is false, control will continue with the next 
statement? otherwise control returns to the first statement in the 
statement list following the REPEAT, Note that several statements may 
be contained between the REPEAT and the UNTIL, since this keyword pair 
forms a natural block, whereas in the WHILE statement a BEGIN/END must 
be used to specify the statement list. 


FOREVER DO STATEMENT 

The form of the FOREVER DO statement is 
FOREVER DO statement 

The FOREVER DO statement causes statement to execute endlessly. In 
order to exit the scope of the FOREVER statement a special EXIT or 
branch statement is required, A FOREVER DO may be interrupted by 
generating a hard or soft terminal interrupt. 

BRANCH STATEMENTS 

APLGOL branch statements are of the form 
branch : [control]* 
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The only branch statements permitted in APLGOL are those directed to a 
key point in a control structure which encloses the point in which the 
branch is located. Three key points, termed LEAVE, ITERATE, and 
RESTART, are associated with each of the following control structures: 
PROCEDURE, FOREVER, IF, WHILE, REPEAT, and CASE, 

Each branch statement consists of a keyword specifying the type of 
branch, followed by a colon and a list of control structure keywords 
which is processed left-to-right, Each element in the list specifies 
a control structure in which the branch statement is located, and each 
successive control structure is exited until the last one in the list. 
Control is then transferred to the appropriate point in the outermost 
control structure shown in the list. The nesting is defined by the 
lexical structure of the function, not the run-time execution 
structure. For example, LEAVE: WHILE will effect a branch to the 
leave point in the innermost WHILE statement relative to the location 
of the LEAVE statement. 

Examples: 

RESTART: FOREVER FOREVER; 

results in leaving the innermost FOREVER statement and branching to 
the restart point of the next innermost FOREVER statement, 

ITERATE: WHILE REPEAT; 

exits the current inner WHILE statement and branch to the iterate 
point In the next innermost REPEAT statement. 

The LEAVE, ITERATE, and RESTART points are defined on the flowcharts 
at the end of this section. 


CASE STATEMENT 

The form of the CASE statement is 

CASE expression OF integer constant BEGIN 
subcase list ♦ END CASE 

The CASE statement uses the value of the expression following CASE to 
select one of the subcases and execute it. The expression must 
evaluate to a non-negative integer. If the value is non-single, the 
value of the first element is used. The value must be between 0 and 
the value of the integer constant following OF. The integer constant 
indicates the largest number for a subcase in the statement, although 
not all subcases need be specified, A single subcase may be 
associated with more than one value of the expression. 

Note that no more than 1024 subcases (numbered 0 through 1023) are 
permitted. 

The case body is delimited by BEGIN and END CASE, Inside it are the 
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subcases# in any order. The syntax of a subcase is as follows: 

subcase = subcase label : statement 
subcase list = subcase C subcase list ] 

The subcase label can be a constant integer scalar# or a constant 
integer vector# in which case the associated statement will be 
executed it the value of expression following CASE is an element of 
the subcase label. The subcase label can also contain the Keyword 
DEFAULT# in which case the accompanying statement will be executed if 
the value of the selector expression is in range but does not match 
any of the specified values in the other subcase labels. Only one 
DEFAULT subcase may be permitted in a case statement. 

For example: 


CASE I\J OF 15 
BEG IF 

0: T«-{/«-1 3* K; 

2: NULL; 

1: HALT 'CASE 1 IS SYSTEM ERROR'; 

10 12 14: 

BEGIN 
I+I- 1 ; 

J *~J - 1 ; 

END; 

5: EXIT J+-J-1; 

DEFAULT : 

HALT 'UNKNOWN CASE POSSIBILITIES'; 

END CASE; 

The flow diagrams contained in figures 9*1 through 9-7 show the flow 
of control for each of the APLGOL statements. The Key branch points 
of each statement structure associated with the three types of 
branches are indicated by IT# the Iterate point# RS# the restart 
point# and LV# the leave point. 


PROCEDURE A 


RS, IT 

f 


body of A 




LV 



r 


Figure 9-1. Procedure Statement Flow Chart 
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Figure 9-2. Forever Do Statement Flow Chart 



Figure 9-3. Single-Arm Conditional If Statement Flow Chart 
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IF expression THEN statement -1 ELSE statement -2 



Figure 9-4. Double-Arm Conditional If Statement Flow Chart 



Figure 9-5. Repeat Statement Flow Chart 
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Figure 9-7. Case Statement Flow Chart 
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SECTION 


FUNCTION EXECUTION 


User-defined functions (or simply, defined functions) may be used in 
the same manner as primitive functions, except that they may not be 
used as arguments of primitive operators. A defined function may be 
used in calculator mode or it may be called from within another 
defined function. 

When a defined function is invoiced, its execution begins with the 
first statement, then successive statements are executed in order, 
except as this order is changed by branch instructions. 

For example, consider the function CIRCLEAREA: 


OCR 'CIRCLE ARE A' 

AREA+RADIUS CIRCLE AREA DEGREE S ; LOC AL1 ; LOC AL2 
AREA+(oRADI!JS*2 ) *DEGREESi360 


When this function is executed with the statement 
265.3 CIRCLEAREA 16.67 

the value 265.3 is assigned to tne local name RADIUS and the value 
16.67 is assigned to the local name DEGREES. Tne body of the function 
then is executed and the statement 

AREA (oRADIUS#2)xDEGREES 360 

computes a value for the result variable AREA. 

A function like ClRCLEAREA# which produces an explicit result, may be 
used in compound expressions. For example, 

Pff.TCff*-12x36000xl2.4 C T RC LE ARE A 36.2 
PRICE 
20993747.88 


The value computed tor the result variable AREA in the function 
CIRCLEAREA is used to compute PRICE. The result variable# AREA, is 
treated the same as any local variable ana therefore has no 
significance after the function is executed: 


AREA 

/AIDE ERROR 
AREA 
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HALTED EXECUTION 


Execution of a function may be stopped before completion in the 
following ways: 

* By an error report. 

* By an interrupt from the terminal, 

* By use of the stop control system function DSS (see page 10-10). 

* By execution of the HALT statement. 

When a function is stopped before its execution is complete# the 
function is suspended . The name of the function is displayed# with a 
line number beside it. If the suspension is because of an error or 
interrupt from the terminal# the line is displayed with an appropriate 
message and an indication of the point of interruption. Unless 
multiple specification arrows or other used-aefinea functions appear 
in tne line# the state of computation was restored to the condition 
existing before the line started to execute. 

The displayed number generally is the number of the line that would be 
executed next if the function were to continue normally. Execution of 
the suspenaed function can oe resumed by entering a branch arrow to 
the line counter system function (DLC)» or by entering )RESUME (see 
page 10-8 tor a discussion of the )RESUME command). 

Entering -*0# or a branch to a number outside the range of statement 
numbers in the function causes an immediate exit from the function. 

All normal activities are possible when a function is in the suspended 
state. Statements or system commands may be executed# or execution of 
the function may be resumed at any point# or the editor may be invoiced 
to edit any function which is not pendent (see below). 


STATE INDICATUP SYSTEM COMMAND 


The state indicator system commana )SI displays the state indicator, A 
typical display has the form 

)SI 

A [ 4 ] * 

B t 6 j 
D [4 j 
C 12 J * 

DU] 

and indicates that execution was halted before completing execution of 
line 4 of function A# the current use of function A was called in line 
6 of function B# function B was called in P143# the use of function C 
was halted at line 2, ana that function C was called in Dtl] , The 
asterisks appearing to the r ight of A14 j ana C C2] indicate that 
functions A and C are suspended . The functions B and D are defined as 
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being pendent , because their execution can be resumed only as a result 
of function A resuming its execution. The term halted is used to 
define a function which is either pendent or suspended . 

Additional functions can be invoiced when in the suspended state. For 
example, if C were called now ana a further suspension occurred in 
statement J of function p, itself invoiced in statement 7 of C, the 
state indicator display would be: 

)SI 

D 13 J * 

C [7] 

A C 4 J * 
b [6 J 
DC4J 
C [2 j * 

D 11J 

Because the line counter, DLC, holds the current statement numbers of 
functions that are in execution, its value at this point would be the 
vector 3 746421. The sequence from tne last suspension to the 
preceding suspension can be cleared by entering a single branch arrow: 


)SI 

A [4 J * 

B [6 J 
P 14 J 
C 12 j * 

Dili 

□ lc 

4 6 4 2 1 

Repeated use of tne branch arrow will clear the state indicator and 
restore DLC to an empty vector. (The )RESET system command (see page 
10-7 ) nas the same effect.) The cleared state indicator is displayed 

as a blank line, see page n-6 for further applications of the state 
indicator system command. 


STATE INDICATOR DAMAGE 

If a function name occurs in the state indicator list, erasure of that 
function or replacement of that function by copying an object with the 
same name (even another example of the same function) makes it 
impossible for the original execution to be resumed. In this case, an 
SI DAMAGE message is reported. 

If an SI DAMAGE message is reported for a suspended function, it will 
be impossible to resume its execution, cut the function can be invoked 
again, with or without prior clearance of the state indicator. 
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APL\3000 EXTENDED CONTROL FUNCTIONS 

The state indicator )SI displays a list ot pendent and suspended 
functions in the order in which they were called. It also displays 
the line number on which each function is suspended and optionally, it 
)SIV is used, a list of all variables shadowed by each function call, 
Eacn of the user-defined function names which appear on the state 
indicator is termed a control point and the collection of all control 
points displayed by the state indicator is termed an environment . The 
current control point is the function which is currently executing or 
suspended, and the current environment is the set of function calls 
which would be displayed by the state indicator if it were called at 
the current control point. 

In order to facilitate the execution of APL statements in environments 
other than the current environment# two system functions are available 
in APIA3000 which allow the saving of new environments for later use. 
An arbitrary APL expression can then oe executed in one of these saved 
environments through the use of the extended execute function. 


CAPTURE STACK ENVIRONMENT SYSTEM FUNCTION 

The form of the capture stack environment system function is 
A«-F DCSL C S D 

where 

A = assigned environment number 
F = function name 

C = count ( scalar, unit, or 1 to 3 element vector ) 

S = starting environment 
D = desired environment number 

The DCSE function searcnes down the list of control points beginning 
with tne starting environment for the control point specified by count 
and with the designated function name. If the required control point 
is found, it is assigned, along with its environment, to the assigned 
environment number (a number between 1 and 15 which can be used to 
access the captured environment at a later time). Environment 0 is 
always defined as the current environment . 

If function name is not specified, tne control point specified by 
count (regardless of name) will be captured. Although the execute and 
evaluated input functions (± and □) appear in the status indicator, 
they are not considered as control points. They cannot be captured by 
□CSE and do not participate in the count. If the function name is not 
specified and the count exceeds the number of user-defined functions 
in the starting environment , the global environment is captured. 

If a desired environment number is not specified in the right 
argument, the next available environment number is chosen. If the 
environment limit is exhausted, an error message is returned. 
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It a desired environment number is specified in the right argument* 
any environment previously assigned to that number is released before 
the new environment is captured. 

If a starting environment is not specified* the current environment 
(environment 0) is assumed, if a starting environment is specified# 
the search starts in that environment but control always returns to 
the current environment. 

RELEASE STACK ENVIRONMENT S *STEM FUNCTION 

The form of tne release stack environement system function is 
RL DRSfc- EL 
where 

RL = released environment list 
EL = environment list 


The DRSE function releases a list of environments previously captured 
by DCSE. Tne released environment list contains a list of 
environments actually released, this may be different from the 
environment list because some of tne environments in environment list 
may oe empty or non-existent. DRSE may be used with the current 
environment (number zero) which will cause the current environment to 
be reduced to the empty environment. 


EXTENDED DYADIC EXECUTE PRIMITIVE FUNCTION 


The form of tne extendea dyadic execute primitive function is 
H E 
where 

N = environment number 

E = character scalar, vector* or unit representing the APL 
expression to be evaluated 


The dyaaic form of execute evaluates an APL expression in the same way 
that the monadic form evaluates these expressions* except that the 
dyadic form evaluates the expression in tne environment specified by 
environment number , which may oe different from the current 
environment, if E does not contain a branch, the resulting value 
(that is, the result of the expression evaluated in the specified 
environment) is returned to tne current environment as tne value of 
the execute function. 

If E results in a branch, tne branch is executed as it it had occurred 
in the environment specified by environment number , and the 
environment from which execute was called is released unless it has 
been explicitly captured using DCSE. 
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The following examples illustrate possible uses of the extended stack 
control functions: 

Example 1. 

Suppose APL is being used to simulate machine code for a hypothetical 
machine, and one of the instructions simulated is a relative branch. 
This can oe simulated as follows: 


(0J 

CODE 


Cl J 

LD A 

This simulated machine code program 

123 

LDX 1 

will continuously ada 1 to tne contents 

[33 

ADD 

of memory location A. 

[43 

ST0 A 


C5J 

BP -4 



The BP program can be written using the extended control functions as 
follows: 


[0] BR OFFSET ; ENVIRONMENT; NEXT LINE 

[1] A CAPTURE THE ENVIRONMENT OF THE FUNCTION WHICH CALLED BR 

[2] ENVIRONMENT+UCSE 201 

[3] A CALCULATE THE LINE TO BRANCH TO 

[4] NEXTLINE+tiLC [2] + OFFSET 

[5] A EXECUTE THE BRANCH IN THE FUNCTION WHICH CALLED BR 

[6] ENVIRONMENT!',wNEXTLINE 


A shorter version of this program is shown below: 
(0 CSE 2 0 1) l’^0LC'+’ ,W0FFSET 


Example 2, 

Suppose that function TEST has local variable A, and the system is 
suspended in TEST, The following sequence will return the global 
(unshadowed) value of A, 

A*-'GLOBAL A' 

UCR 'TEST' 

TEST ; A 

A^'LOCAL 4 f 
A 

2 QSS 'TEST' Pi STOP BEFORE EXECUTION OF LINE 2 

2 

TEST 
TESTl 2] * 

LOCAL A 

UCSE 2 p CAPTURE GLOBAL ENVIRONMENT 

1 

Ui'A' p GLOBAL ENVIRONMENT CAPTURED AS ENVIRONMENT 1 
GLOBAL A 
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The following system variables can be used to facilitate the use of 
the extended stacK control system functions. 

STACK NAMES SI'STEM FUNCTION 


The stacK names system function (DSN) returns a character matrix 
containing the names of the user-defined functions nalted in the 
environment in which DSN is evaluated. For example, Ia'DSN* will 
return a matrix of the function names halted in environment 1, 


STATE INDICATOR AND STATE INDICATOR WITH VARIABLES 


The state indicator ana state indicator witn variables system commands 
are entered as 

)SI n 
)SIV _n 

wnere _n is an integer between 0 and 15 (default is 0). The 
environment displayed win be environment n. if environment n is not 
the current environment (environment 0), some of the function names 
may appear with a o (shift letter o in the APL character set) 
following the name, A o following the function name indicates that 
the function is not halted in the current environment. 

For example, suppose that the state indicator displays a suspended and 
a pendent function as follows: 


)SI 

TEST 12) * 

TEST! [iJ 

If this environment is captured and the stack is then cleared, tne new 
state indicator is shown below: 

□CSE i 0 2 ^CAPTURE ENVIRONMENT 2 

2 

AC LEAR CURRENT EN VIRONMENT 

)SI 
)SI 2 
TEST (21 ® 

TEST 1C 3 j o 

This indicates that tne functions TEST and TEST 1 are no longer in the 
current environment, although they are contained in environment 1, 


RESET STSTEM COMMAND 

The form of tne RESET system command is 
) RESET _n 

where n is an integer between 0 and 15 (default is 0), The RESET 
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system command releases the environment specified by _n, If n_ is 
omitted, the current environment is released. )RESET n_ is equivalent 
to executing DRSE n. 


DEPTH SYSTEM COMMAND 

The form of tne DEPTH system command is 
)DEPTH _n 

where _n is an integer specifying the size of tne execution stack. The 
execution stack controls the number of nested functions allowed. For 
example, if _n is set to 64, up to 64 functions can be nested at any 
one time, A DEPTH ERROR will be returned if the number of nested 
functions exceeds the size of the execution stack. 


RESUME SYSTEM COMMAND 

The )RESUME system command resumes execution of a suspended function, 
Examples of the )RESUME command are shown starting on page 10-13 • 


DEBUGGING AIDS 

The system functions shown in table 10-1 are used to debug lines of 
unlocked user-defined functions. 


10-8 



Table 10-1. System Functions used for Debugging 


MONADIC 


DYADIC 


(All lines) 

NAME 

(Specified lines) 

RESULT 

□ ST F 

Set Trace 

N DST F 

L 

□ SS F 

Set Stop 

ft □ SS F 

L 

□ SM F 

Set Monitor 

ft DSM F 

L 

□ rt f 

Reset Trace 

ft Dpt f 

L 

□ rs f 

Reset Stop 

ft Drs f 

L 

□ rm f 

Reset Monitor 

N □RM F 

L 

□qt f 

Query Trace 


B 

□qs f 

Query Stop 


B 

□ QM F 

Query Monitor 


B 

□ MV P 

Monitor Values 

ft □MV F 

M 


Notes; 

F is a character vector aenoting the name of an unlocked 
user-defined function, 

N is a numeric vector of line numbers, 

L is a numeric vector of lines with property (set, reset). 

B is a boolean vector, 1 if the property is set, 0 if not set. 

(One element per line including header.) 

-M is a matrix of monitor values. The first column contains 
the numoer of executions, and the second column contains the 
execution or compute time for each line for which values are 
requested. First row corresponds th header, second row to 
line 1, and so forth. Values for header signify number of 
times function executed and CPU time for function. 


The monadic forms of the debugging system functions apply to all lines 
including tne neaaer line (line 0). Tne dyadic forms apply only to 
the lines specified in tne left argument. 

During function execution, the effects of tne aids are as follows on 
encountering a line: 


HEADER LINE 


BODY LINE 


Trace Result returned py function Result 


Stop Suspend prior to return 

from function 


Suspend prior to 
execution of line 


Monitor increase number of calls 
to function and total cpu 
time in function 


Increase number of times 
line has been executed 
and increase cpu time 
in line execution 
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The trace result forms are 


Function name nine number ] 

Function name C line number j type ( shape ) value 

Function name C line number ) ( shape ) value 

The first form above occurs if no result is possible; otherwise* the 
second form occurs. The third form occurs when a line results in a 
branch. 

The type is C tor character or ft for numeric. The shape is a numeric 
vector representing the result of monadic o , and value is the normal 
displayed value (printed beginning on next line ifppM), 

The stop result form is 

Function name Cline numberj * 


SET TRACE, SET STOP, AND SET MONITOR FUNCTIONS 

The set trace, set stop, and set monitor functions (CIST, CSS, and DSH, 
respectively) set the trace, stop, and monitor states of lines of a 
user-definecs function. These set functions can be used either 
monadically or dyadically. If these functions are used monadically, 
the appropriate state is set for all the lines of the function 
specified by the character scalar, vector, or unit right argument. If 
used dyadically, the state is set for only those lines specified in 
tne numeric scalar, vector, or unit left argument. Both forms return 
as their results numeric vectors denoting those lines tor which the 
state is now set. 


Note that these functions do not reset the states each time they are 
called; lines which are not (implicitly or explicitly) referenced are 
not affected. 


RESET TRACE, RESET STOP, AND RESET MONITOR FUNCTIONS 

The reset trace (CRT), reset stop (CHS), and reset monitor (DRM) 
functions are analogous to the set functions (described above), except 
that they reset the designated state. Their arguments are the same as 
those for the set functions; their results are analogous. 


MONITOR VALUES FUNCTION 

The monitor values system function (DMV) is dyadic or monadic. This 
function returns an array of execution count and execution time for 
lines of the function specified by its character scalar, vector, or 
unit right argument. If the function is used monadically, the monitor 
values for all the lines of tne function are returned. If used 
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dyadicallv, only values for tnose lines specified oy the numeric 
scalar* vector* or unit: lert argument are returned. 

The accumulated number of milliseconds is contained in Dmv. a time of 
0 indicates unmonitored lines or monitored lines that have not been 
executed. Thus* monitoring all lines over a period of execution is an 
effective way to determine if some program path has reached each line, 
and also the time spent in each line. 

If a line contains a call on another function, any time spent in that 
called function is accumulated there, instead of in the calling line. 

The result of Dmv is a matrix of shape _nx‘i, wnere _n is the number of 
lines in the function (including the header) if used monadicaily, or 
the length of the left argument if usea dyadicaliy. The first column 
contains the number of times the line has peer, executed since tne last 
set monitor of the line? the second column is the compute time used by 
that line (excluding that used by user-defined functions called by 
that line) in milliseconds. The values tor line number zero indicate 
the number of times the function has been called and the amount of 
computer time it has used. 

QUERY TRACE, QUERY STOP, AND QUERY MONITOR FUNCTIONS 

The query trace (DOT), query stop (DOS), and query monitor (DQM) 
functions taKe as their only argument a character scalar, vector, or 
unit specifying the name of a function whose trace, stop, or monitor 
states are to be queriea. 

The results of tnese functions are boolean vectors, with a one 
denoting that the state (trace, stop, or monitor) is set for that 
line, and a zero denoting that tne state is not set. The elements of 
the result correspond to tne lines of the function, with the first 
element corresponding to line zero, the second to line one, and so 
forth, 

Examples of the debugging aid system functions are provided at the end 
of this section. 

LOCKED functions 

If LOCK is used instead of END in the editor to save a defined 
function, the function becomes locked . A locked function cannot be 
edited or displayed. Any associated stop control or trace control 
function is nullified after the function is locked, 

A locked function is treated in the same manner as a primitive, ana 
its statements are concealed as much as possible. Execution of a 
locked function is terminated by any error occurring within it, or by 
a strong interrupt from the terminal. if execution stops, the 
function is never suspended but is immediately abandoned . The message 
displayed tor a stop is a DOMAIN error if an error of any kind 
occurred, WS FULL if the stop resulted from a system limitation, or 
INTERRUPT if it was stopped from the terminal. 
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A locked function is never pendent# and if an error occurs in any 
function called either directly or indirectly toy a locked function* 
the execution of the entire sequence of nested functions is abandoned. 
If the outermost locked function was called by an unlocked function* 
tne outermost function is suspended; if it was called toy an entry from 
the terminal* an error message is displayed with a copy of the 
statement that caIlea the function. 

When a soft interrupt from tne terminal is encountered in a locked 
function* or in any function that was called toy a locked function* 
execution continues normally up to the first interruptable point* 
which is either tne next statement in an unlocked function that called 
the outermost locked function* or the completion of tne terminal entry 
that used tnis locked function. In the latter case* the soft 
interrupt has no net effect on function execution# only on display of 
output if the explicit result of the function is not directly used. 

Locked functions may be used to keep a function definition 
proprietary# or as part of a security scheme for protecting other 
proprietary information. 
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DEBUGGING AID EXAMPLES 


UQS 'ROOTS' 
1 0 0 0 0 0 

URS 'ROOTS' 
0 1 2 3 4 5 


0 1 
10 11 


UQS 'ROOTS' 

0 0 000000 
□55 ' ROOTS' 

01234567 
□ g>5 'ROOTS' 

11111111 
ROOTS 
ROOT Si 1]* 

)RE SUMS 


0 0 0 0 
8 9 10 11 

1111 


ENTER A NUMBER 
ROOTS [23* 

)VARS 

A B LABEL 1 LABEL2 LABELS LABELH 

)RESUME 

AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT 


ROOTSi 3]* 


)RESUME 

AND THE CUBE ROOT 
ROOTSl 4]* 

)SI 

ROOTS [4]* 


)SIV 

ROOTSl 4]* LABEL1 LABEL2 LABEL'S LABEL* 


) RE SUMS 


□ s 


6J+ 

ROOTSi 5]* 

(ill) □RS 'ROOTS' 
123455789 10 11 

)RESUME 

THE SQUARE ROOT IS 8 
THE CUBE ROOT IS 4 

ENTER 0 IF YOU DO NOT WISH TO CONTINUE 

□ : 

90 

THE SQUARE ROOT IS 9.486832981 

THE CUBE ROOT IS 4.481404747 

ENTER 0 IF YOU DO NOT WISH TO CONTINUE 

□ : 

£ 

ROOTS [0]* 

)RESUME 


N 
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A 


) 7 A RS 

B N 

)RESUME 
QQS 'ROOTS' 
100000000000 
0 15 8 □ SM ' ROOTS 1 
0 15 8 

□55 'ROOTS' 

0123456789 10 11 

QOS 'ROOTS' 

111111111111 
QO.M 'ROOTS' 

110001001000 
ROOTS 
ROOTSi 1]* 

Gi?S 'ROOTS' 

0 1 2 3 4 5 6 7 8 S 10 11 

)RESUME 

ENTER A NUMBER 

AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT 
AND THE CUBE ROOT 
□ : 

42 

THE SQUARE ROOT IS 6.480740698 
THE CUBE ROOT IS 3.476026645 


ENTER 

n . 

0 IF YOU DO NOT WISH 

TO 

n 

ONTINUE 


0 

QQS 'ROOTS' 




0 0 

0 0 0 0 0 0 0 
UQT 'ROOTS' 

0 

0 

0 

0 0 

0 0 0 0 0 0 0 

6 UST 'ROOTS' 

0 

0 

0 

6 

ROOTS 




ENTER 

A NUMBER 





AND THE COMPUTER WILL COMPUTE THE SQUARE ROOT 
AND THE CUBE ROOT 

□: 

9 

ROOTSi 6] N () 2.080083823 

THE SQUARE ROOT IS 3 

THE CUBE ROOT IS 2.080083823 

ENTER 0 IF YOU DO NOT WISH TO CONTINUE 

□ : 

0 
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QOT 'ROOTS' 

00000100 0 0 
QRT * ROOTS 1 

123455789 10 

mV 'ROOTS' 

2 1583 

2 87 

0 0 

0 0 

0 0 

2 18 

0 0 

0 0 

2 170 

0 0 

0 0 

0 0 
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System commands are used for sucn things as monitoring and modifying 
the workspace environment# saving and then reactivating copies of a 
workspace# accessing the APLN3000 editor# resuming suspended 
functions# and terminating an APL session. 

System commands are prefixed by a right parentheses and can only be 
entered in immediate execution mode; they cannot be used as part of a 
defined function. The complete set of system commands is shown in 
table 11-1, 


INITIAL VALUES IN A WORKSPACE 

Some items in a workspace are set to certain standard values when the 
workspace is first accessed. In particular# the workspace contains 
the settings of the state indicator and several system variables. 
These settings are shown in table 11-2, 


)CLEAR COMMAND 

The form of the )CLEAR command is 
)CLEAR 

The )CLEAR command is used to clear (and discard) the contents of the 
active workspace and reset the workspace to the standard initial 
values (see table 11-2), 

An example of the )CL£AR command is shown below; 


)CLEAR 
CLEAR WS 
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Table 11-1. System Commands 


NAME 

SYNTAX 

PURPOSE 

Bind 

)BIND 

Sets the BIND flag ON or OFF 

Clear 

)CLEAR 

Clears the active workspace 

Continue 

)CONTINUE 

Saves CONTINUE file and terminates APL session 

Copy 

)COPY [namelist) 

Obtains objects from saved workspace 

Depth 

)DEPTH num 

See Section X 

Drop 

)DROP wsname 

Purges workspace 

Edit 

)EDIT [name] 

Accesses APL \ 3000 editor 

Erase 

)ERASE [namelist] 

Deletes objects from workspace 

Files 

)FILES [groupname.acctname] 

Lists all files in user’s library or, optionally, all files in speci¬ 
fied group and account. 

Functions 

)FNS [letter] 

Lists user-defined functions in the active workspace. 

Help 

)HELP [cmdname] 

Displays information on system commands 

Library 

)LIB [groupname [ acctname]] 

Lists workspaces in specified library 

Load 

)LOAD wsname 

Replaces active workspace with duplicate of saved 
workspace 

MPE 

)MPE 

Exits APL and enters MPE 

Off 

)OFF 

Terminates APL session 

Protected 

copy 

)PCOPY wsname [ namelist] 

Obtains objects from named workspace. Does not replace 
named objects in active workspace. 

Reset 

)RESET 

See Section X 

Resume 

)RESUME 

See Section X 

Save 

)SAVE wsname 

Saves duplicate of active workspace 

State 

indicator 

)SI 

Lists state indicator in the active workspace 

State 

indicator 

with 

variables 

)SIV 

Lists state indicator in the active workspace with names 
local to user-defined functions 

Terminal 

type 

)TERM [ termtype] 

Sets terminal type 


Terse 


Time 


)TERSE 

)TIME 


Sets error messages to “terse” 

Returns elapsed wall time and elapsed CPU time 














































































Table 11-1. System Commands (Continued) 


NAME 

SYNTAX 

PURPOSE 

Variables 

)VARS [letter] 

Lists variables in the active workspace 

Verbose 

)VERBOSE 

Sets error messages to “verbose” 

Workspace 

identification 

)WSID [wsname] 

Displays the active workspace name, or, when wsname is 
included, renames workspace. 


namelist = name [name] [name] . . . [name] 

wsname = workspace identification [llockword] [.groupname [.accountname]] 

Note: All workspaces are saved with MPE lockwords. If the lockword parameter is not supplied by the user, APL\ 

3000 supplies APLOOOOO. 

The reason is that if an attempt is made to open a file containing a lockword, and the lockword parameter is 
omitted, MPE prints 

LOCKWORD: fileid 

on the output device. 

If the output device is an APL character set device, it prints 
□ • n'oiopL. 

To change the lockword of a saved workspace, enter )DROP, then )SAVE with new lockword. 
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Table 11-2. Initial Values in a Workspace 


Latent expression, DLX 

Empty 

Depth, )DEPTH 

66 

Line counter, DLC 

Empty 

Stack names, DSN 

Empty 

State indicator, )SI 

Cleared 

Workspace identification, )WI 

Empty (UNNAMED WS) 

Printing precision, DPP 

10 

Printing width, DPW 

80 

Comparison tolerance, DCT 

IE 13 

Random link, DRL 

0 

Language, DLA 

'APL' 

Assert level, DAL 

0 

Horizontal tabs, DHT 

0 

Virtual memory, DVM 

256 -24 

Index origin, DIO 

1 

)ERASE COMMAND 


The form of the )ERASE command is 
)ERASE [ namelist ] 

The )ERASE command deletes objects (functions and variables) 
identified by the namelist parameter from the workspace. Shared 
variable offers pertaining to any of these objects are retracted. 

If a halted function is erased, the report SI DAMAGE Is displayed. It 
is not possible to resume the execution of an erased function, and the 
the state indicator should be cleared of indications of damage (see 
Section X), 


If an object specified in the namelist parameter cannot be erased, the 
message NOT ERASED: is reported, followed by the name of the object 
not erased. 
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An example of the )ERASt command is shown below: 


)VARS 

A ALTER APL 101 APL 102 APL 103 

APL 34 APL 35 APL 51 4PL52 ^PL61 

APLGOL 5 APLGOLS APLG0L1 APLG0L8 APLGOLS 

D E EDIT 1 INCOME N 

TIME V EC VECTOR X XQR 

)ERASE ALTER VEC XXOR 
)V ARS 

A APL 101 4PL102 /4PL103 /1PL104 APL 11 4PL31 4PL32 4PL33 APLSK 

/5PL35 4PL51 /9PL52 4PL61 APL 62 APLGOL 1 APLGOL7 A PLGOLS APLGOLS- APLGOLS 

APLGOL 6 APLGOL 7 APLGOLS APLGOLS APLSET ARRAY B C CHAR D 

E EDIT 1 INCOME N RESHAPE 1 RESH APE 7 SHAPE TIME 

VECTOR X XQR Y YIELD Z 


)CQPY COMMAND 

The form of the )COPY command is 
)COPY wsname [namelist 3 

The )COPY command copies the objects specified in the namelist 
parameter from the workspace indicated by wsname (the source 
workspace) into the active workspace. If namelist is omitted, all 
objects (except system variables) in the source workspace are copied. 

When an object to be copied has the same name as an object in the 
active workspace, the copied object replaces the object in the active 
workspace. If there is a shared variable offer pending with respect 
to the object thus replaced, the offer is retracted. 

If names explicitly included in the )C0PY command are not the names of 
objects in the source workspace, APL reports NOT COPIED:, followed by 
a list of the objects not found. 

An example of the )CQPY command is shown below: 


)C0PY WS 2 

SAVED 12:44 10/14/76 


)PCQPY COMMAND 

The form of the )PCOPY command is 
)PCQPY wsname [ namelist 3 

The )PCOPY (protected copy) command works like the )CQPY command, 
except that if the namelist parameter specifies objects having the 
same name of objects in the active workspace, the objects in the 
source workspace are not copied. APL reports objects not copied for 
this reason by displaying 

NOT COPIED: list of objects 


A PL 104 APL 11 APL 31 APL 3 2 APL 3 3 

APLS2 APLG0L1 APLG0L2 APLGOLS APLGOLS 

APLSET ARRAY B C CHAR 

RESHAPE 1 RESHAPE7 SHAPE 

Y YIELD Z 
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An example of the )PC0PI command is shown below 


)PCOPY WS 2 ROOTS 
NOT COPIED : ROOTS 

SAVED 12:44 10/14/76 

)FNS COMMAND 

The form of the )FNS command is 
)FNS [ letter ] 

The )FNS command lists functions in the active workspace in alphabetic 
order, starting with the letter specified. If letter is omitted, all 
functions are listed. 

An example of the )FNS command is shown below: 


) FNS 

BOOTS CIRCLEAREA GOLFSCORE 


ROOTS 


)VARS COMMAND 

The form of the )VARS command is 
)VARS [ letter ] 

The )VARS command lists variables in the active workspace in 
alphabetic order, starting with the letter specified. If letter is 
omitted, all variables are listed. 

An example of the )VARS command is shown below: 



)VARS 









A 

ALTER 

APL101 

APL 102 

APL 10 3 

APL 104 

APL 11 

APL 31 

APL 32 APL 33 


APL3H 

API 35 

APL 51 

APLE2 

APL 61 

APL 62 

APLGOL 1 

APLG0L2 

APLGOLZ APLGOLH 


APLGOLS 

APLGOL 6 APLGOL1 

APLGOL8 

APLGOL 9 

APLSET 

ARRAY 

B 

C CHAR 


D 

E 

EDIT1 

INCOME 

V 

RESHAPE1 


RESHAPE 2 

SHAPE 


TIME 

VEC 

VECTOR 

X 

XQR 

Y 

YIELD 

Z 



)VARS G 









INCOME 

N 

RESHAPE 1 

RESHAPE2 


SHAPE 

TIME 

VEC VECTOR 


X 

XQR 

Y 

YIELD 

Z 





)SI 

COMMAND 









The 

form of the 

)SI 

command 

is 







)SI N 
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The )SI command displays the state indicator* which shows the status 
of halted functions. The most recently halted function is listed 
first. If N is specified* it must be an integer between 0 and 15* and 
it causes the environment specified by N to be displayed. See Section 
X for a discussion of the use of environment numbers. 

The list shows the name of the function and the number of the line at 
which the function halted. Actions which can be talcen with respect to 
a halted function are discussed in Section X. 

Suspended functions are denoted in the state indicator list by an 
asterisk* while pendent functions appear without an asterisk. 

An example of the )SI command is shown below: 


)SI 

ROOT Si 3]* 


)SIV COMMAND 

The form of the )SIV command is 
)SIV N 

The )SIV command displays the state indicator in the same way as the 
)SI command, but in addition* lists names local to each function. 

If N is specified* it must be an integer between 0 and 15* and it 
causes tne environment specified by N to be displayed. See Section X 
tor a discussion of the use of environment numbers. 

An example of the )SIV command is shown below: 


)SIV 

ROOTS [3]* LABEL 1 LABEL2 LABEL3 LABEL 4 


WORKSPACE STORAGE AND RETRIEVAL 

A duplicate of the active workspace tor may be saved later use. When 
this duplicate is subsequently reactivated* the entire workspace is 
restored as it was, except that variables which were shared in the 
active workspace when saved are not shared automatically again when 
the workspace is reactivated. 


LIBRARIES OF SAVED WORKSPACES 

The set of saved workspaces is called a library . Each workspace is 
identified by group and account names as well as the actual name 
assigned to it. In referring to workspaces in the user's own library, 
however, the group and account names may be omitted, because they are 
supplied automatically. 
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In systems with multiple APL users, it often is convenient to use 
functions or variaoles contributed by others, A user may activate an 
entire workspace saved by another user, or he may copy selected items 
from another user's workspace. In order to copy another user's 
workspace, the group, and account names, if different, must be supplied 
together with the workspace name. 

Some libraries (usually identified by a special group and account 
name, for example, PUB,SYS) are not assigned to individual users, but 
are designated as public libraries. There may be restrictions, 
however, on wno can save, delete, or modify a workspace in a public 
library. In general, a public library workspace can be re-saved or 
deleted only by the user who first saved it, 

NAMES AND PASSWORDS OF WORKSPACES 

A saved workspace must be named. The name of a workspace may 
duplicate a name used for an APL object within the workspace, A 
password may be used with the name of a workspace. If a password is 
used, any reference to the saved workspace must specify this password. 


)WSID COMMAND 

The form of the )WSID command is 
)WSID wsname 

The )WSID command renames an active workspace with the name specified 
by wsname . 

APL displays WAS. . ., followed by the former name. 

Another form of the )WSID command with no parameters is 
) W SID 

This form reports the identification of the active workspace, listing 
the group and account names (if other than the user's) and the 
password, 

Examples of the )WSID command are shown below: 

)WSID 

IS NOT NAMED 

)WSID WS 4 
WAS NOT NAMED 
)W SID 

IS WS 4 

)SAVE COMMAND 

The form of the )SAVE command is 
)SAVE wsname 
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The )SAVE command saves a duplicate of the active workspace with the 
name specified d y wsname . The workspace is saved in the group library 
associated with the user unless otherwise specified. A password is 
included in the name if the password portion of wsname is specified. 

APL acknowledges saving by a report listing the date and time at which 
the workspace was saved, and the wsname . 

An example of the )SAV£ command is shown below: 


)SAVE VS 2 

SAVED 14:05 10/14/76 WS 2 


)CQNTINU£ COMMAND 

The form of the )CONTINUE command is 
)CONTINUE 

The )CGNTINUE command saves the active workspace under the name 
CONTINUE and terminates the session. 

Additionally, when a session is aborted for any reason except a normal 
log-off (such as the connection to the computer being broken), the 
workspace is saved with a name such as A2661516, where the first three 
digits specify the day of the year (the 266th day in this case), and 
the last four digits specify the time of day (3:16 PM in this case). 

An example of the )C0NTINUE command is shown below: 


)CONTINUE 


)L0AD COMMAND 

The form of the )LQAD command is 
)LOAD wsname 

The )LOAD command discards the active workspace and then transfers a 
duplicate of the saved workspace specified by wsname into the active 
workspace. Shared variable offers in the former active workspace are 
retracted. 

APL displays the date and time at which the loaded workspace was last 
saved. The latent expression (DLX) in the loaded workspace is 
executed automatically. 

An example of the )LOAD command is shown below: 


)L0AD WS2 

SAVED 14:05 10/14/76 
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)DRQP COMMAND 


The form of the )DRQP command is 
)DROP wsname 

The )DROP command removes the workspace specified by wsname from the 
library in which it is contained. The password is required in the 
wsname parameter to drop a workspace. 


The )DROP command has no effect on the active workspace. 

An attempt to drop a workspace by someone other than the user who 
saved it is rejected with the error report IMPROPER LIBRARY REFERENCE, 

An example of the )DROP command is shown below: 

)DROP WS 1 
DROPPED 

)DROP WS 3 
WS MOT FOUND 

)LIB COMMAND 


The form of the )LIB command is 

)LIB [ groupname [. accountname j ) 

The )LIB command displays the names of the workspaces* in alphabetic 
order* in the specified library. 

An example of the )LIB command is shown below: 

) LIB 

/12881407 CONTINUE JWSAVE WS 2 WS 4 

)HELP COMMAND 


The form of the )HELP command is 
)HELP [ cmdname ] 

The ) HELP command returns a listing of the system commands. If the 
optional cmdname parameter is specified* the )HELP command returns a 
brief description of the specified command. 

Examples: 

)HELP 

COMMANDS LEGAL FROM CALCULATOR MODE: 


CLEAR 

CONTINUE 

COPY 

DROP 

EDIT 

ERASE 

FILES 

FNS 

MPE 

HELP 

LANGUAGE 

LIB 

LOAD 

OFF 

PCOPY 

BIND 

RESET 

RESUME 

SAVE 

SI 

SIV 

VARS 

WSID 

TIME 

DEPTH 

TERM 

TERSE 

VERBOSE 





ENTER 

)HELP <C0MMAND> FOR A BRIEF DESCRIPTION OF 

THE COMMAND 



)HELP MPE 







THE 

)MPE COMMAND 

IS USED TO 

LEAVE APL 

AND ENTER 

MPE . 




11-10 



)TERM COMMAND 


The form of the )TERM command is 
)TERM [ termtype j 

where termtype signifies the type of terminal being used* Possible 
values for termtype are: 

ASCII - ASCII terminal 

BP - Bit-pairing 

CDI - Computer Devices# Inc* 

CP - Character-pairing 

DM - DataMedia 

GSI - GenCom Systems# Inc* 

HP - Hewlett-Packard 

An example of the )TERM command: 

) TERM 
IS ASCII 

)TERM HP 
WAS ASCII 

)TERSE COMMAND 

The )TERSE command sets error messages to "terse.” For example# 


6*0 

REAL DIVIDE BY 
6*0 

+ 

)TERSE 


DOMAIN 


6*0 

ERROR 

6*0 
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)VERBOSE COMMAND 


The )VERBOSE command sets error messages to "verbose," For example, 


6*0 

DOMAIN ERROR 
6*0 
+ 

)VERBOSE 

6*0 

REAL DIVIDE BY 0 
6*0 

+ 


Verbose is the default mode. 


)BIND COMMAND 

The )BIND command sets a BIND flag on or off. If off when the )BIND 
command is entered, the flag is turned on; if on, the flag is turned 
of f, 

If a. binding error occurs during program execution and the BIND flag 
is on, the statement in which the binding error occurred is listed 
along with an indication of the position of the binding error. 

An example of the )BIND command is shown below; 


) BIND 

NOW ON 

) BIND 
NOW OFF 


)FILES COMMAND 

The form of the )FILES command is 
)FILES t groupname , acctname 3 

The )FILES command is used to list all files in the user's account. If 
followed by the optional groupname , acctname parameter, all files in 
the account specified are listed. 

An example of the files command is shown below; 


)FILE S 

,42881407 JWSAVE WS 2 WS 4 
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) MPE COMMAND 


The )MPE command is used to exit APL and enter the MPE operating 
system* For example, 

) MPE 

:LISTF 
FILENAME 

712881412 JWSAVE WS 2 WS 4 

:RESUME 


Note that when the MPE :RESUME command is entered, the READ PENDING 
message is not displayed (as it is when BREAK is used). 


)TIME COMMAND 

The )TIME command turns on or off the reporting of wall/CPU elapsed 
times for an APL function to execute. If off, )TIME turns the 
reporting on? if on, the reporting is turned off. The first value 
returned is the elapsed wall time, the second value is the CPU time. 

An example of the ) TIME command is shown below: 


) TIME 


NOW ON 


TIMES : .0, 

.009 

4«-ilOOO 


TIMES : .5, 

.218 

B+-A*i 12 


TIMES : 4.9, 

3.534 

(7^5*4 


TIMES: 7.7, 

4.640 

) TIME 



NOW OFF 


TERMINATING AN APL SESSION 

An APL session may be terminated with either the )OFF or )CONTINUE 
commands * 

If the )OFF command is used, the active workspace is discarded and, if 
it has not been saved with the )SAVE command, is not retrievable. 

The KQNTINUE command terminates the session and saves the active 
workspace under the name CONTINUE. 
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Examples o t the )QFF and )CONTINUE commands are shown below 


) OFF 

:LISTF 
FILENAME 


JWSAVE v/S 2 WS 4 


)CONTINUE 

: LISTF 


FILENAME 


CONTINUE JWSAVE WS 2 

L _ 


V54 

CONTINUE file saved 
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ERROR MESSAGES 


SECTION 



Table 12-1 contains error messages produced by APLV30QQ, Table 12-2 
contains file system (FCHECK) error messages and the corresponding 
APIA3000 error numbers. 

Table 12-1. APL\3000 Error Messages 


TEHSE 

VERBOSE 

TRANSLATION ERRORS 


SYNTAX ERROR 

CONSTANT ERROR 

SYNTAX ERROR 

COMMENT ERROR 

DOMAIN ERROR 

EXPONENT OVERFLOW 

LABEL ERROR 

DUPLICATE LABEL 

DEFN ERROR 

DUPLICATE NAME IN HEADER 

SYNTAX ERROR 

SYNTAX ERROR 

SYNTAX ERROR 

NON-EXISTENT CONTROL STRUCTURE 

LABEL ERROR 

CASE LABEL TOO BIG 

LABEL ERROR 

REAL CASE LABEL 

DOMAIN ERROR 

CASE RANGE TOO BIG 

DOMAIN ERROR 

CASE RANGE MUST BE INTEGER 

SYNTAX ERROR 

DUPLICATE DEFAULT CASE 

LABEL ERROR 

DUPLICATE CASE LABEL 

DEFN ERROR 

MISSING NAME 

DEFN ERROR 

TOO MANY NAMES 

DEFN ERROR 

ILLEGAL IN HEADER 

DEFN ERROR 

LOCAL LIST ERROR 

SYNTAX ERROR 

ERROR IN EMPTY STATEMENT 

DEFN ERROR 

KEYWORD ' PROCEDURE ' MISSING 





Table 12-1. APL\3000 Error Messages (continued) 


DEFN ERROR 

FUNCTION ALREADY EXISTS 

CONST BLK OVFLW 

CONSTANT BLOCK OVERFLOW 

SCODE BLK OVFLW 

SECCODE BLOCK OVERFLOW 

CMNT BLK OVFLW 

COMMENT BLOCK OVERFLOW 

EXECUTION ERRORS 


CHARACTER ERROR 

ILLEGAL CHARACTER 

SYNTAX ERROR 

SYNTAX ERROR 

DEPTH ERROR 

FUNCTION CALLS TOO DEEP 

DOMAIN ERROR 

DOMAIN ERROR 

DEFN ERROR 

DEFN ERROR 

INDEX ERROR 

INDEX ERROR 

LABEL ERROR 

LABEL ERROR 

LENGTH ERROR 

LENGTH ERROR 

RANK ERROR 

RANK ERROR 

SYMBOL TABLE FULL 

TOO MANY SYMBOLS IN WS 

SYSTEM ERROR 

SYSTEM ERROR 

VALUE ERROR 

VALUE ERROR 

WS FULL 

WORKSPACE FULL 

DOMAIN ERROR 

INTEGER DIVIDE BY 0 

DOMAIN ERROR 

REAL DIVIDE BY ZERO 

DOMAIN ERROR 

INTEGER OVERFLOW 

DOMAIN ERROR 

REAL OVERFLOW 

DOMAIN ERROR 

INTEGER UNDERFLOW 

DOMAIN ERROR 

PEAL UNDERFLOW 

NONCE ERROR 

NOT YET IMPLEMENTED 

SYNTAX ERROR 

FUNCTION VALENCE CHANGED 
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Table 12-1. APL\3000 Error Messages (continued) 


INCORRECT COMMAND 
INTERRUPT 
BINDING ERROR 
DOMAIN ERROR 
DOMAIN ERROR 
NO ENVIRONMENTS 
ASSERTION FAILED 
EDITOR ERRORS 

INTERNAL OVERFLOW 

SYNTAX ERROR 

MUST BE APL OR APLGOL 

ILLEGAL LINE RANGE 

NUMBER TOO LARGE 

TOO MANY DECIMAL POINTS 

ILLEGAL NAME 

NUMBER TOO LARGE 

MISSING COLON 

MISSING START LINE 

MISSING LINE COUNT 

MISSING DELTA 

MISSING ASSIGNMENT 

MISSING DELTA VALUE 

ILLEGAL DELTA VALUE 

NO SUCH COMMAND 

CHANGE STRING NOT DEFINED 

FIND STRING NOT DEFINED 


INCORRECT COMMAND 
INTERRUPT 
BINDING ERROR 
NON-EXISTENT ENVIRONMENT 
ENVIRONMENT NOT ON STACK 
ENVIRONMENT LIMIT EXHAUSTED 
ASSERTION FAILED 

INTERNAL OVERFLOW 

SYNTAX ERROR 

MUST BE APL OR APLGOL 

ILLEGAL LINE RANGE 

NUMBER TOO LARGE 

TOO MANY DECIMAL POINTS 

ILLEGAL NAME 

NUMBER TOO LARGE 

MISSING COLON 

MISSING START LINE 

MISSING LINE COUNT 

MISSING DELTA 

MISSING ASSIGNMENT 

MISSING DELTA VALUE 

ILLEGAL DELTA VALUE 

NO SUCH COMMAND 

CHANGE STRING NOT DEFINED 

FIND STRING NOT DEFINED 
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Table 12-1. APL\3000 Error Messages (continued) 


PATTERN STRING NOT DEFINED 
NO LINE NUMBER ROOM 
NONCE ERROR 
LINE NOT FOUND 
STRING NOT FOUND 
WS FULL 

LIBRARY COMMAND ERRORS 

SYSTEM ERROR 
WS LOCKED 
WS NOT FOUND 
FILE NOT WS 
NO SPACE 
NO SUCH LIB 
BAD WSID 
ACCESS ERROR 
ACCESS ERROR 
ACCESS ERROR 
NO SPACE 
FILE EXISTS 
UNNAMED WS 
INTERRUPT 
INTERRUPT 

EDITOR ERRORS 

WILL NOT OVERLAY LINE 
INTERRUPT 


PATTERN STRING NOT DEFINED 
NO LINE NUMBER ROOM 
NOT YET IMPLEMENTED 
LINE NOT FOUND 
STRING NOT FOUND 
WORKSPACE FULL 

UNEXPECTED FILE ERROR 

INCORRECT PASSWORD SUPPLIED 

WORKSPACE DOES NOT EXIST 

FILE IS NOT AN APL WORKSPACE 

NO DISC SPACE AVAILABLE 

ACCOUNT OR GROUP NON-EXISTENT 

INCORRECT WORKSPACE NAME 

CANNOT OBTAIN EXCLUSIVE ACCESS 

SECURITY DISALLOWS ACCESS 

FILE CREATOR CONFLICT 

DIRECTORY OVERFLOW 

NOT SAVED - FILE ALREADY EXISTS 

NOT SAVED - WORKSPACE HAS NO NAME 

INTERRUPT - WS NOT LOADED 

INTERRUPT - WS NOT SAVED 

WILL NOT OVERLAY LINE 
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Table 12-1. APL\3000 Error Messages (continued) 


FILE SYSTEM ERRORS 

FILE SYSTEM ERROR 
SYSTEM ERROR 
WS LOCKED 
WS NOT FOUND 
FILE NOT WS 
NO SPACE 
NO SUCH LIB 
BAD WSID 
ACCESS ERROR 
ACCESS ERROR 
ACCESS ERROR 
NO SPACE 
FILE EXISTS 
UNNAMED WS 

"1000 FILE ALREADY OPENED 

“1001 FILE NOT OPEN 


FILE S/STEM ERROR 

UNEXPECTED FILE ERROR 

INCORRECT PASSWORD SUPPLIED 

WORKSPACE DOES NOT EXIST 

FILE IS NOT AN APL WORKSPACE 

NO DISC SPACE AVAILABLE 

GROUP OR ACCOUNT NUMBER 

INVALID WORKSPACE NAME 

CANNOT OBTAIN EXCLUSIVE ACCESS 

SECURITY DISALLOWS ACCESS 

FILE CREATOR CONFLICT 

DIRECTORY OVERFLOW 

NON-WS FILE BY THAT NAME 

NOT SAVED - WORKSPACE HAS NO NAME 

FILE ALREADY OPENED 

FILE NOT YET OPENED 


“1002 STACK OVFLW 


RECORD SIZE TOO LARGE 





Table 12-2. File System (FCHECK) Error Codes 


ERROR 

NUMBER 

MEANING 

APL 

ERROR 

NUMBER 

20 

Invalid operation 

100 

21 

Data parity error. 

100 

22 

Software time-out. 

100 

23 

End of tape. 

100 

24 

Unit not ready. 

100 

25 

No write ring on tape. 

100 

26 

Transmission error. 

100 

27 

Input/output time-out. 

100 

28 

Timing error or data overrun. 

100 

29 

Start input/output (SiQ) failure. 

100 

30 

Unit failure. 

100 

31 

End of line indicated by special character 
terminator • 

100 

32 

Software abort of input/output operation. 

100 

33 

Data lost. 

100 

34 

Unit not on-line. 

100 

35 

Data set not ready. 

too 

36 

Invalid disc address. 

100 

37 

Invalid memory address. 

100 

38 

Tape parity error. 

100 

39 

Recovered tape error. 

100 

40 

Operation inconsistent witn access type. 

100 

41 

Operation inconsistent with record type. 

100 

42 

Operation inconsistent with device type. 

100 
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Table 12-2. File System (FCHECK) Error Codes (continued) 


43 

Transfer count (tcount) exceeds record size 
parameter Crecsize) when multi-record write 
(aoption) not specified when file opened. 

100 

44 

FUPDATE intrinsic requested but file is 
positioned at record zero? FUPDATE must 
reference last record read but no previous 
record was read. 

100 

45 

Privileged file violation. 

100 

46 

Insufficient disc file space on all discs in 
specified device class. 

104 

47 

Input/output error while accessing file label. 

100 

48 

Invalid operation due to multiple file access. 

100 

49 

Unimplemented function. 

100 

50 

Referenced account does not exist. 

105 

51 

Referenced group does not exist. 

105 

52 

Referenced permanent file not found in system 
directory. 

102 

53 

Referenced temporary file not found in job 
directory. 

102 

54 

Invalid file reference. 

106 

55 

Referenced device is not available. 

100 

56 

Device specification is invalid or undefined. 

100 

57 

Virtual memory insufficient for specified file. 

100 

58 

File not passed; typically caused by request 
for $OLDPASS when there is no SOLDPASS, 

100 

59 

Standard label violation. 

100 

60 

Global RIN not available. 

100 

61 

Group disc file space exceeded. 

104 

62 

Account disc file space exceeded. 

104 

63 

User does not have non-sharable device (ND) 
capability required by this operation. 

100 
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Table 12-2. File System (FCHECK) Error Codes (continued) 


64 

User does not have multiple RIN (MR) capability 
required by this operation. 

100 

71 ' 

Too many files opened for process. 

100 

,72 

Invalid file number. 

100 

73 

Bounds check: violation. 

100 

80 

Configured maximum number of spoolfile sectors 
exceeded by this output request. 

100 

81 

SPOOL class not defined in system. 

100 

82 

Insufficient space in SPOOL class for this 
input/output request. 

100 

83 

Extent size greater than 65K (maximum allowed). 

100 

84 

Device in SPOOL class is down? that is* next 
extent in this spoolfile is on device that is 
not available to system. 

100 

85 

Requested operation inconsistent with spooling; 
for example, an attempt to read hardware 
status • 

100 

86 

Spool process internal error. 

100 

87 

Offset to data is greater than 255 sectors. 

100 

89 

Power failure. 

100 

90 

Calling process requested exclusive access to 
file being accessed by another process. 

107 

91 

Calling process requested access to tile to 
to which another process has exclusive access. 

107 

92 

Lockword violation. 

101 

93 

Security violation. 

108 

94 

Conflict in use of FRENAME intrinsic because 
user is not the creator. 

109 

100 

Duplicate permanent file name in system file 
directory. 

102 

101 

Duplicate temporary file name in job file 
directory. 

102 
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Table 12-2. File System (FCHECK) Error Codes (continued) 


102 

Directory input/output error. 

100 

103 

System directory overflow. 

no 

104 

Job directory overflow. 

110 

105 

Illegal variable block structure. 


106 

Extent size exceeds 65K (maximum allowed). 

100 

107 

Offset to data exceeds 255 sectors. 

100 

110 

Attempt to save permanent system file in job 
(temporary) directory. 

100 
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APLX3000 CHARACTER SET 


APPENDIX 



CHARACTER 

NAME 


A-underscore 


B 


B-underscore 


C 


C-underscore 


D 


D-underscore 


E 


E-underscore 


F 


F-underscore 


G 


G-underscore 


H 


H-underrscore 


FUNCTION 
OR USE 

MONADIC DYADIC 


NUMBERS NAMES 


Separator 


NAMES 


APL 

SYMBOL 

ASCII 

SYMBOL 

0 

0 

1 

1 

2 

2 

3 

3 



8 

8 

9 

9 



ASCII 

DECIMAL 

ASCII 

OCTAL 

48 

60 

49 

61 

50 

62 

51 

63 

52 

64 

53 

65 

54 

66 

55 

67 

56 

70 

57 

71 

32 

40 

65 

101 



l-underscore 


J-underscore 


K 


K-underscore 


L-underscore 


M 


M-underscore 


74 112 


75 113 


76 114 


77 115 


NAMES 


A-1 

































































































































































































FUNCTION 

CHARACTER OR USE APL ASCII 3-CHAR O-ORIGIN ASCII ASCII OVERSTRUCK 

NAME MONADIC DYADIC SYMBOL SYMBOL “ASCII” DaV INDEX DECIMAL OCTAL CHARACTER 

























































































































































































FUNCTION 

CHARACTER OR USE APL ASCII 3-CHAR O-ORIGIN ASCII ASCII OVERSTRUCK 

NAME MONADIC DYADIC SYMBOL SYMBOL “ASCII” DaV INDEX DECIMAL OCTAL CHARACTER 





















































































































































































CHARACTER 

NAME 



star 


upstile 


downstile 


stile 


comma 


log 


circle slope 


quote dot 


domino 


nor 


nand 


circle stile 


I-beam 


del stile 


delta stile 


quote quad 


cap hull 


slope bar 


slash bar 


del tilde 


base null 


top null 


FUNCTION 

OR USE APL ASCII 3-CHAR O-ORIGIN ASCII ASCII OVERSTRUCK 

MONADIC DYADIC SYMBOL SYMBOL “ASCII” DaV INDEX DECIMAL OCTAL CHARACTER 


Hyperbolic, 

etc. 


power 


maximum 


minimum 


residue 


catenate 


General 

Logarithm 


1 st coordin¬ 
ate rotate 


transpose 


Binomial 


exponential 


ceiling 


floor 


magnitude 


ravel 


Natural 

Logarithm 


1st coordin¬ 
ate reverse 


transpose 


Factorial 


Matrix 

Inverse 




INPUT 


Comment 



Grade up 


OUTPUT 


Comment 


1st coordin¬ 
ate Expand 


1st coordin¬ 
ate Com¬ 
press 


None 



Extended 

Execute 



“DM 

113 

“NR 

114 

"NA 

115 

“RV 

116 

“IB 

117 

“GD 

118 

“GU 

119 

“QQ 

120 

“CM 

121 

“BD 

122 

“SD 

123 

“DT 

124 

“CX 

125 

“FT 

126 






















































































































































FUNCTION 

CHARACTER OR USE APL ASCII 3-CHAR O-ORIGIN ASCII ASCII OVERSTRUCK 

NAME MONADIC DYADIC SYMBOL SYMBOL “ASCII” DaV INDEX DECIMAL OCTAL CHARACTER 




























































































































































































FUNCTION 

CHARACTER OR USE APL ASCII 3-CHAR O-ORIGIN ASCII ASCII OVERSTRUCK 

NAME MONADIC DYADIC SYMBOL SYMBOL “ASCII” DaV INDEX DECIMAL OCTAL CHARACTER 




































































































































































CHARACTER 

NAME 


FUNCTION 
OR USE 

MONADIC DYi 


ASCII not 


ASCII vdash 


grave accent 


O-ORIGIN 

□av index 

ASCII 

DECIMAL 

ASCII 

OCTAL 

195 

109 

155 

196 

110 

156 

197 

111 

157 

198 

112 

160 

199 

113 

161 

200 

114 

162 

201 

115 

163 

202 

116 

164 

203 

117 

165 

204 

118 

166 

205 

119 

167 

206 

120 

170 

207 

121 

171 

209 

126 

176 

210 

124 

174 

211 

96 

140 















































































APLX3000 

PRIMITIVE FUNCTIONS AND OPERATORS 


APPENDIX 


L 



NAME 

SYMBOL 

SYNTAX 

And 

A 

Xa Y 

Arccosine 

0 

~2oX 

Arcsine 

0 

"loX 

Arctangent 

0 

~3oX 

Axis operator 

[ ] 

[expression] 

Binomial 

l 

AiB 

Catenate 

t 

A f & 

Ceiling 

r 

A 

Compress 

/or t 

boolean argument/A 

Conjugate 

4 

+ A 

Cosine 

0 

2oX 

Deal 

? 

A?B 

Decode 

1 

AiB 

Divide 

* 

AvB 

Drop 

4 

AiB 

Encode 

T 

ATB 

Equal 

mm 

A = B 

Execute 


or A±B 

Expand 

\ or -X 

boolean argumentNA 

Exponential 


#A 

Factorial 

1 

1A 

Floor 

L 

LA 













NAME 

SYMBOL 

SYNTAX 

Format 

V 

?A or A?B 

General logarithm 

® 

A®B 

Grade down 

t 

f A 

Grade up 

A 

Ik 

Greater 

> 

A>B 

Hyperbolic arccosine 

0 

“6oX 

Hyperbolic arcsine 

0 

“5oX 

Hyperbolic arctangent 

0 

“7 OX 

Hyperbolic cosine 

0 

6oX 

Hyperbolic sine 

0 

5oX 

Hyperbolic tangent 

0 

7oX 

Index generator 

l 

ik 

Index of 

I 

AiB 

Indexing 

t ] 

A [expression] 

Inner product operator 

• 

kt nl>fn2B 

Laminate 

# t ] 

A t [fraction]B 

Less 

< 

A<B 

Magnitude 

1 

1 A 

Matrix divide 

B 

ABB 

Matrix inverse 

B 

BA 

Maximum 

r 

ATB 

Membership 

£ 

AeB 

Minimum 

L 

ALB 

Minus 

m 

A*B 

Nand 

TV 

XtvY 
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NAME 

SYMBOL 

SYNTAX 

Natural logarithm 

® 

® A 

Nor 

V 

XvY 

Not 

~ 

~A 

Not equal 

* 

A* B 

Not greater 

< 

A<B 

Not less 

> 

A>B 

Or 

V 

XvY 

Outer product operator 

O 

9 

A°,£nB 

Pi times 

0 

oA 

Plus 

+ 

A + B 

Power 

9 

A*B 

Pythagorean 0~1 + X*2)*,5 

0 

"~4oX 

Pythagorean (UX*2)*,5 

0 

4oX 

Pythagorean 

0 

OoX 

Quad input 

□ 

A+-D 

Quad output 

□ 

□«-A 

Quote quad input 

□ 

A ■<- H 

Quote quad output 

□ 

□ «-A 

Ravel 

f 

# A 

Reciprocal 


rA 

Reduction operator 

/ 

primitive function/A 

Reshape 

p 

ApB 

Residue 

1 

A | B 

Reversal 

<f> or e 

4>A or ©A 

Roll 

■? 

• 

?A 
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NAME 

SYMBOL 

SYNTAX 

Rotate 

or © 

A(j)B or A©B 

Scan operator 

\ 

primitive functlonNA 

Shape 

p 

ph 

Signum 

X 

XA 

Sine 

0 

lox 

TaKe 

+ 

AiB 

Tangent 

0 

3oX 

Times 

X 

AxB 

Transpose 

6? 

A§B 
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APLX3000 SYSTEM COMMANDS 


APPENDIX 



NAME 

SYNTAX 

Bind 

) BIND 

Clear 

)CLEAR 

Continue 

)CONTINUE 

Copy 

)COPY [namelist] 

Depth 

)DEPTH num 

Drop 

)DROP wsname 

Edit 

)EDIT CnameJ 

Erase 

)ERASE [namelist] 

Files 

)FILES [groupname.acctname] 

Functions 

)FNS [letter] 

Help 

)HELP [cmdname] 

Library 

)LIB [groupnameC.accountname]] 

Load 

)LOAD wsname 

MPE 

) MPE 

Namelist - name [name] [name], . 

. [name] 

Off 

) OFF 

Protected copy 

)PCOPY wsname [namelist] 

Reset 

) RESET [n_] 

Resume 

)RESUME 

Save 

)SAVE wsname 

State indicator 

)S1 [n] 




State indicator with variables 


)SIV Cn] 









NAME 

SYNTAX 

Time 

) TIME 

Terminal type 

)TERM Ctermtypel 

Terse 

)TERSE 

Variables 

)VARS lietter3 

Verbose 

)VERBOSE 

workspace identification 

) WSID twsnameJ 

wsname = workspace identification C/lockword] 

[groupname C .accountnamej 
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APL\3000 SYSTEM VARIABLES 


APPENDIX 



NAME 

FORM 

SYNTAX 

Account information 

□ AI 

□ AI 

Alphabet 

□ A 

□ A 

Assertion level 

□ al 

□AL[rvalue] 

Atomic vector 

□ AV 

□ AV 

Backspace 

□ B 

□ B 

Branch trace 

□ BT 

□ BT 

Comparison tolerance 

□ CT 

□ CT lvalue] 

Digits 

□ D 

□ D 

Escape 

□ E 

□ E 

Execution trace 

□ XT 

□ XT C-^value] 

Horizontal tab setting 

□ HT 

□HTC^integer vector] 

Index origin 

□ xo 

□10[rvalue] 

Language 

□ LA 

□LA«-Papl # ] 

['APLGQL' 

Latent expression 

□ LX 

□ LX O'express ion'] 

Line counter 

□ LC 

□ LC 

Linefeed 

□ L 

□ L 

Null 

□ N 

□ N 

Printing precision 

□ PP 

□PP[rvalue] 

Printing width 

□ PW 

□ PW Ovaiue] 

Random link 

□ RL 

□RL [rvalue] 

Return 

□ P 

□ R 
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NAME 

FORM 

SYNTAX 

Stack: names 

□ SN 

□SN 

Tab 

□ T 

□ T 

Terminal type 

□TT 

□TT C^termtype ) 

Time Stamp 

□ TS 

□ TS 

Virtual memory 

□ VM 

□VMi>integer vector} 

Work area available 

□ WA 

□ WA 

Workspace identification 

□wi 

□ WI 
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APLX3000 SYSTEM FUNCTIONS 


APPENDIX 


NAME 

FORM 

Canonical representation 

□ CR 

Capture stack environment 

□ CSE 

Convert 

□CV 

Delay 

□ DL 

Expunge 

□ex 

Function establishment 

□FX 

Monitor values 

□ MV 

Name classification 

□NC 

Name list 

□ nl 

Query monitor 

□qm 

Query stop 

□qs 

Query trace 

□qt 

Release stack environment 

□rse 

Reset monitor 

□ RM 

Reset stop 

□ RS 

Reset trace 

□rt 

Set monitor 

□ SM 



□CR ' name ' 

A+-F DCSE C S D 
A = assigned environment 
number 

F = function name 
C = count 

S = starting environment 
D = desired environment 
number 

control DCV data 


□ DL 

seconds 

□ EX 

'name' 

□ FX 

name 

□ MV 

'name' 

□ NC 

'name' 

CV 

letters'3 Dnl integers 

□ QM 

'name' 

□qs 

'name' 

□qt 

'name' 

RL 

□RSE EL 

RL 

= released stack 


environment 

EL 

= environment list 

□RM 

'name' 

□ RS 

'name' 

□ RT 

'name' 

□ SM 

'name' 
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NAME 

FORM 

SYNTAX 

Set stop 

□ss 

□SS 'name' 

Set trace 

□ST 

□ST 'name' 

Shared variable control 

□svc 

□SVC t'processid'3 

Shared variable offer 

□svo 

C'processid'] Dsvo 'shared 

variable 

id/ 

Shared variable retract 

□ SVR 

□SVR 'shared variable id' 

Shared variable query 

□ SVQ 

□SVQ C'processid'J 

Vector representation 

□VR 

□VR 'name' 
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APLX3000 EDIT INSTRUCTION SYNTAX 


APPENDIX 


A [DD 


3 [ linespec 
string 


[delta] 


BCRIEF] 

CCHANGE] [ character [ patternstring ] character [ changestring ] 
character C rangelist 3 3 

COCPYJ linebjoc)c 

lineblock = linerange ( : )linespec [delta] 


blank 


CUCRSORJ) linespec 
* I + integer 

- integer 
string 


D[ELETEJ 


"string 

rangeiist 


delta = i f ) linenurcber 


[DELTCA] 
I A 


[decimainumber] 


A PL 

APLGOL 


FIND [string] Crangelist] 


H[ELP] ) [ instruction ] 
EXPLAIN* 


linerange = 



1inespec 

<linespec> <separator> <linespec> 


<linespec> <separator> 


<separator> <linespec> 


separator 


ALL 
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linespec 


= line number 
FIRST 
LAST 
CURSOR 


LUST] frangelist' 
string 
ALL 
FIRST 
LAST 


LOCK [APL ] 

Laplgolj 

MAT[RIXj tvariablename] 


MCODIFY] 


QUIT 


'string 

rangelist 


rangelist = 


t a flinerange U 
rnge l, rlist 3 


linerange]. . . Ulinerangel 


RCEPLACE] string 

rangelist 


[delta] 


RESCEQUENCEJ lineblock 


separator a 17 
I 


string a <character> <text not containing cnaracter> <cbaracter> 


UNDO [integer] Cgrainspec] 


grainspec a 


blank 


L[INES] 

C COMMANDS] 


VEC[TOR] C variablename ] 
VERCBOSE] 
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APLGOL STATEMENT SYNTAX 


APPENDIX 



ASSERT expression : expression 

BEGIN statement list END 

CASE expression OF integer constant 
BEGIN subcase list + END CASE 

EXIT [ expression ] 

FOREVER DO statement 

HALT [ expression ] 

IF expression DU statement 

IF expression THEN statement ELSE 
statement 

NULL 

REPEAT statement list UNTIL expression 


WHILE expression DO statement 














SYSTEM SUPPLIED 
UTILITY SHARED VARIABLES 


APPENDIX 



PROCESSOR: UTIL 

VARIABLES: VERBOSE FLAG 

INPUTCONTROL 

VERBOSE FLAG = Boolean, 1 if error messages is in VERBOSE mode? 

0 otherwise. Can be set dynamically, 

INPUTCONTROL = Takes as input a 1 or 2 element vector of integers 

from -32768 to 32767 (unit or scalar extends to 
1-element vector), if second value is omitted, 
the system sets it to 0, 

The two values are used as the two parameters 
for the FCQNTROL intrinsic on the standard APL 
input file 'APLIN # , 

After FCQNTROL executes, the value of the second 
parameter (which may be changed by MPE) is 
saved. 

For a READ, the value saved is returned (saved 
from the last WRITE call) and initialized to 0 
so tnat a READ before any WRITE will return an 
answer, 
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INDEX 


A 

Abondoned functions# 10*11 

Aborted sessions# 11*9 

Access control# 5-3 

Access control matrix# 5-3 

Access control mechanism# 5-3 

Access control of a shared variable# 5-5 

Access control vector# 5-6 

Access state# 5-3 

Access state matrix# 5-4 

Accessing the editor# 7-3 

Account information system variable# 4-19 

Active worKspace# 2-12 

Add editor instruction# 8-4 

Alphabet system variable# 4-23 

Alternating product# 3-18 

Alternating sum# 3-18 

And function# 3-8 

APL assignment function# 2-3 

APL constants# 2-1 

APL expressions# 2-3 

APL functions which deoend on absolute values# 3-9 

APL functions which depend on comparison tolerance# 3-11 

APL functions# 2-5 

APL order of association# 2-9 

APL translation# 8-9 

APLGQL branch statements# 9-7 

APLGOL function format# 9-2 

APLGOL header lines# 8-1 

APLGQL statement syntax# 9-J 

APLGOL translation# 8-9 

APLGOL# 9-1 

APLN3000# aborted session# 11-9 

character set# 1-2# A-l 
definition# 1-1 
editor# 8-1 

exiting and entering MPE# 11-13 

extended control functions# 10-4 

file system# b-1 

initiating a session# 1-4 

Keyboard# 1-3 

running# 1-6 

terminal# 1-3 

terminating a session# 1-7 
terminating a session# 11-13 
Arguments# 1-7 
Arguments# extending# 3-1 
Arrays# 2-9 


i-i 




ASCII terminals# 1-3 

Assert APLGQL statement# 9-5 

Assertion level checking# 9-6 

Assertion level system variable# 4-20 

Assignment arrow# 1-6 

Assignment function# 2-3 

Atomic vector system variable# 4-i9 

Auto convert# 6-9 

Auto-ASCII conversion# 6-9 

Axis operator# 3-20 

B 

Backspace system variable# 4-23 

Base value# 3-53 

Begin APUGGL statement# 9-4 

Bilateral sharing# 5-1 

Binding error# 11-12 

Binding parameters# 1-1 

Bind system command# 11-12 

Binomial function# 3-16 

Boolean functions# 3-8 

Branch arrow# 2-3 

Branch expression# 2-4 

Branching# 7-5 

Branch statements# 7-5 

Branch trace system variable# 4-21 

Brief editor instruction# 8-4 

C 

CPU time# 4-19 

Calculator mode# 1-6 

Canonical representation function# 4-3 

Capture stack environment system function# 10-4 

Carriage return system, variable# 4-23 

Case APLGOL statement# 9-8 

Catenate function# 3-35 

Celling function# 3-11 

Change editor instruction# 8-5 

Character constants# 2-2 

Character set# l-i# A-l 

Character system variables# 4-23 

Circular functions# 3-13 

Clear system command# 11-1 

Closing a file# 6-4 

Column vector# 3-20 

Commands variable# 6-11 

Comments# 7-7 

Communicating between processes# 5-1 
Comparison tolerance system variable# 4-13 
Compress function# 3-42 
Compression function# 7-6 
Condition codes# 6-3 
Conjugate function# 3-7 
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Connect time# 4-19 
Constants# 2-1 

Continue system command# 11-9 
Control arguments# 3-55 
Control pairs# 3-56 
Control points# 10-4 
Control variable# 6-1 
Conversion system function# 6-12 
Copy editor instruction# 8-5 
Copy system command# 11-5 

Copying objects into the active workspace# 11-5 
Current environment# 10-4 
Cursor editor instruction# 8-6 
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Data arguments, 3-55 
Data conversion# b-12 

Data transformation functions# 3-28# 3-54 

Data variable# 6-9 

Deal function# 3-50 

Debugging aid examples# 10-13 

Debugging aids# 10-8 

Decimal constants# 2-1 

Decode function# 3-53 

Defined functions# 7-1 

Defined function valence# 7-3 

Degree of coupling# 5-2 

Delay function# 4-9 

Delete editor instruction# 8-6 

Deleting objects from the workspace# il-4 

Delta editor instruction# 8-7 

Depth system command# 10-8 

Desired environment number# 10-4 

Digits system variable# 4-23 

Displaying the environment# 10-7 

Divide function# 3-2 

Domain error# 12-1 

Double integer conversion# 6-13 

Double-arm conditional IF statement# 9-6 

Drop function# 3-41 

Dropping a workspace from a library# 11-10 

Drop system command# 11-10 

Dyadic format function# 3-55 

Dyadic functions# 2-5 

Dyadic primitive scalar function# 3-1 
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Edit instruction syntax# 8-3 
Editor# 8-1 

Editor errors# 12-3# 12-4 
Editor line numbers# 8-t 
Editor prompt character#'8-1 
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Empty array# 2-9# 3-32 
Empty vector# 2-2# 3-30 
Encode function# 3-53 
End editor instruction# 8-7 
Environment# capturing# 10-4 

# displaying# 10-7 

# releasing# 10-8 
Environments# 10-4 

Equal function# 3-8 
Erase system command# ll-4 
Error messages# 12-1 
Errors# binding# 11-12 
domain# 12-1 
editor# 12-3 

error codes (FCHECK)# 12-6 
execution# 12-2 
file system# 12-5 
library command# 12-4 
messages# 12-1 
syntax# 12-1 
translation# 12-1 
Escape system variable# 4-23 
Establishing a user-defined function# 7-1 
Execute function# 3-54# 10-5 
Execution errors# 12-2 
Execution modes# 1-6 
Execution trace system variable# 4-21 
Exit APLGQL statement# 9-4 
Exiting APLN3000 and entering MPE# 11-13 
Exiting a suspended function# 10-23 
Expand function# 3-44 
Explain editor instruction# 8-7 
Exponential function# 3-12 
Expunge function# 4-6 
Extended control functions# 10-4 
Extended dyadic execute primitive function# 10-5 
Extending arguments# 3-1 

External to internal APL conversion# 6-12 
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Factorial function# 3-16 
Fcontrol intrinsic# 6-4 
File system# 6-1 
File system errors# 12-5 
File system (FCHECK) error codes# 12-6 
Files# APLS3000 file system# 6-1 
closing# 6-4 
listing# 11-12 
opening# 6-2 
reading# b-11 
writing to# 6-10 
Files system command# 11-12 
Find editor instruction# 8-7 
Floating-point numbers# 3-9 
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Floor function, 3*11 

Forever DO APLGOL statement, 9*7 

Formal file designator, 6-2 

Format function, 3-65 

Fraction, 2*1 

Free-field format, 9*2 

Function establishment (fix) function, 4-6 
Functions (FNS) system command, 11*6 
Functions, arguments, 1*7, 2*5 
definition mode, 1*8 
execution, 10*1 
header, 7*3 
line numbers, 7*5 

dependent on comparison tolerance, 4*13 
abandoned, 10*11 

deleting from the workspace, 11-4 
dyadic, 2*5 
erasing, 11*4 

invoking a user-defined, 2-4 
locked, 10*11 
monadic, 2-5 
niladic, 2-5 
primitive, 2*6 
user-defined, 2-6 
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General logarithm function, 3-13 
Global names, 7-4 
Grade down function, 3*49 
Grade up function, 3-49 
Greater function, 3-8 

H 

Halt APLGOL statement, 9-5 
Halted execution, 10-2 
Halted functions, 7*4, 10*2 
Help editor instruction, 8-8 
Help system command, 11*10 
Horizontal tabs system variable, 4-22 
HP 2641A terminal, 1-3 
Hyperbolic functions, 3*13 


I 

Identities, 3-2 
Identity matrix, 3*51 
If APLGOL statement, 9-6 
Immediate execution mode, 1-6 
Index generator function, 3-48 
Index of function, 3*48 
index origin system variable, 4-15 
index origin, 2-9, 2-11 
Indexing, 2*9 
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indexing function# 3-45 
indices of apl characters# 4*19 
Inhibiting an access# 5*3 
Initiating an APLA300Q session# 1*4 
Inner functions# 7*4 
Inner product operator# 3*22 
integer values# 3*10 
intermediate code# 1-1 

Internal APL to external conversion# 6-13 
Interrupted functions# 7*4 
Intrinsics# 6*3 

Inverse of a non-singular matrix# 3-51 

Invoking a defined function# 10-1 

Invoking a user-defined function# 2-4 

Issuing MPE commands with the CMNDS variable# 6*12 

Iterate point# 9*8 
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Labels# 7-6 

Laminate function# 3-37 

Language system variable# 4-21 

Latent expression system variable# 4-16 

Leave point# 9-8 

Left arrow# 1-6 

Left identity# 3-2 

Left inverse# 3-51 

Less function# 3-8 

Libraries# 2-12# 11-7 

Library command errors# 12-4 

Library system command# 11-10 

Line counter system variable# 4*1 99 

Line numbers# 7-5 

Linear equations# 3-52 

Linearly-independent columns# 3-51 

Linefeed system variable# 4-23 

List editor instruction# 8-8 

Listing functions in the active workspace# 11-6 

Listing variables in the active workspace# 11-6 

Load system command# 11-9 

Loading a workspace# 11-9 

Local names# 7-4 

Localisation of names# 7-4 

Lock editor instruction# 8-9 

Locked functions# 10-11 
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Magnitude function# 3-8 
Magnitude of precision# 3-56 
Matrix divide function# 3-51 
Matrix editor instruction# 8-9 
Matrix inverse function# 3-51 
Maximum function# 3-11 
Membership function# 3-49 
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Minimum function# 3-11 

Minus function# 3-2 

Mixed functions# 3-25 

Modify editor instruction# 8-9 

Monadic format function# 3-55 

Monadic functions# 2-5 

Monadic primitive scalar function# 3-1 

Monitor values system function# 10-10 

MPE# 1-1 

MPE system command# 11-13 
Multi-dimensional arrays# 2-9 

Multiprogramming Executive operating System# l-l 
N 

Name classification function# 4-9 

Name list function# 4-6 

Names and passwords of workspaces# 11-8 

Nand function# 3-8 

Natural logarithm function# 3-13 

Negative constants# 2-1 

Negative function# 3-7 

Niladic functions# 2-5 

Non-singular matrix# 3-51 

Non-square matrices# 3-52 

Nor function# 3-8 

Not equal function# 3-8 

Not function# 3-8 

Not greater function# 3-8 

Not less function# 3-8 

Null APlGQL statement# 9-4 

Null system variable# 4-23 

Numerical functions# 3-51 

0 

Obtaining descriptions of system commands# 11-10 
Obtaining information on shared variables# 5-7 
Obtaining status report for files# 6-7 
Offering to share a variable# 5-1 
Offers# 5-1 

One-element array# 3-1 
Opening a file# 6-2 
Operators# 3-17 
Or function, 3-8 
Outer functions# 7-4 
Outer product operator# 3-24 
Overbar# 2-1 

Overstruck characters# 1-3 
P 

Parentheses# 2-9 

Pendent functions# 7-4# 10-3 

Plus function# 3-2 


1-7 



Post-checked loop, 9-7 

Power function# 3-12 

Pre-checked loop# 9-7 

Precision control# 3-56 

Primitive functions# 2-6 

Primitive numerical functions# 2*8# 3-28 

Primitive scalar functions# 2-7# 3-1 

Primitive selection functions# 2-8, 3-27 

Primitive selector generator functions# 2-8# 3-27 

Primitive structural functions# 2-7# 3-29 

Primitive transformation functions# 2-8# 3*28# 3-54 

Printing precision system variable# 4-18 

Printing width system variable# 4-18 

Process communication# 5-1 

Protected copy system command# 11-5 

Public libraries# 11-8 

Pythagorean functions# 3-13 

Q 

Quad input function# 3-59 
Quad output function# 3-58 
Query monitor system function# 10-11 
Query stop system function# 10-11 
Query trace system function, 10-11 
Quit editor instruction# 8-10 
Quote character# 2-3 
Quote quad input function# 3-60 
Quote quad output function# 3-60 

R 

Random link system variable# 4-17 
Random numbers# 3-11 
Rank# 2-9 

Rank of arrays# 3-31 
Ravel function# 3-30 
Raw tab system variable# 4-23 
Reading a file, 6-11 
Peal conversion* 6-13 
Reciprocal function# 3-8 
Reduction operator# 3-17 
Relational functions# 3-8 

Release stack environment system function# 10-5 

Released environment list# 10-5 

Releasing the environment# 10-6 

Renaming the active workspace# 11-8 

Repeat APLGOL statement# 9-7 

Replace editor instruction# 8-10 

Reporting elapsed time# 11-13 

Representation# 3-53 

Representing floating-point numbers# 3-9 
Resequence editor instruction# 8-n 
Reset monitor system function# 10-10 
Reset stop system function# 10-lQ 
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Reset system command# 10*7 

Reset trace system function# 10-10 

Reshape function# 3*32 

Residue function# 3-7 

Restart point# 9-8 

Result of an expression# 2-3 

Resume system command# 10-8 

Resuming a suspended function# 10-2 

Retrieving a stored workspace# it-7 

Reversal function# 3-32 

Right identity# 3-2 

Right-to-left association# 2-9 

Roll function# 3-11 

Rotate function# 3-33 

Row vector# 3-20 

Running APIA3QQ0# 1-6 

s 

Save system command# 11-8 

Saving a duplicate of the active workspace# 11-8 
Scalar constants# 2-2 
Scalar value# 2-9 

Scalar-vector substitutions for mixed functions# 3-29 
Scale# 2-1 

Scaled-form constants# 2-1 
Scan operator# 3-19 
Selecting elements of an array# 2-11 
Selection functions# 3-40 
Selector generator functions# 3-48 
Session# fully-gualifled name# 1-4 
initiating# 1-4 

Set monitor system function# 10-10 

Set stop system function# 10-10 

Set trace system function# 10-10 

Setting error messages to terse# 11-11 

Setting error messages to verbose# 11-12 

Setting the bind flag on and off# 11-12 

Shadowing of names# 7-5 

Shape control# 3-56 

Shape function# 3-30 

Shape of arrays# 2-10 

Shared variable environment# 5-7 

Shared variable offer system function# 5-1# 6-1 

Shared variable query system function# 5-7 

Shared variable retraction system function# 5-7 

Shared-variable identifier# 5-1 

Shared variables# 5-1 

Sharing variables# 5-1 

Signum function# 3-7 

Single-arm conditional IF statement# 9-6 

Single-dimensional array# 2-9 

Singular matrices# 3-52 

Specification arrow, 2-3 

Stack names system function# 10-7 
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Stack names system variable, 4*20 
Standard ASCII terminals, 1*3 
Starting environment, 10*4 
State indicator damage, 10*3 

State indicator system command, 10*2, 10*7, 11*7 

State indicator with variables system command, 10*7, 11*7 

Storage available in the active workspace, 4*22 

Stored workspace, 2*12 

Storing a workspace, 11*7 

Structural functions, 3*29 

Subcase level, 9*9 

Subcases, 9*8 

Surrogate names, 5*1 

Suspended functions, 7*4, 10*2 

Syntax error, 12*1 

System commands, 2-6, 11*1 

System functions, 4-1 

System functions used for debugging, 10*9 
System supplied utility shared variables, H*l 
System variables, 4-10 

T 

Take function, 3-40 

Terminal system command, 11*11 

Terminal types, 1-5, 4*22, 11-11 

Terminal type system variables, 4*22 

Terminating an apl session, 1*7, 11*9, 11*13 

Terse system command, 11-11 

Times function, 3*2 

Time stamp system variable, 4*20 

Time system command, 11-13 

Trace format, 10*10 

Translation errors, 12-1 

Translators, 8-9 

Transpose function, 3-39 

Two-dimensional array, 2*9 
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Undo editor instruction, 8*12 
Unit array, 3*1 

User-defined functions, 2*6, 7*1 
Using parentheses to modify the order 
Using the FCHECK intrinsic, 6*6 
Using the FCQNTRQL intrinsic, 6*4 
Using the FGETINFG intrinsic, 6*7 
Using the FLOCK intrinsic, 6*8 
Using the FREAD intrinsic, 6-ll 
Using the FREADDIR intrinsic, 6*11 
Using the FSETMODE intrinsic, 6-7 
Using the FSPACE intrinsic/ 6-6 
Using the FUNL0CK intrinsic, 6-8 
Using the FWRITK intrinsic, 6*10 
Using the FWRITEDIR intrinsic, 6*10 
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Valence of a defined function, 7-3 
Variables CVApS) system command, 11*6 
Vector constants, 2-2 
Vector editor instruction, 8-12 
Vector representation function, 4-4 
Vector value, 2-9 
Verbose editor instruction, 8-12 
Verbose system command, 11-12 
Virtual memory, 1-1 

Virtual memory system variable, 4-21 

Visual effect, 1-3 

Visual fidelity, 1-3, 3-60 
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While APLGQL statement, 9-7 
Width control, 3-56 

Work area available system variable, 4-22 
Workspace identification system variable, 4-20 
Workspace identification (Wsid) system command, 11-8 
Workspace storage and retrieval, 11-7 

Workspace, copying objects from a source workspace, 11-5 
definition 

deleting functions from, 11*4 
deleting objects from, 11-4 
displaying names of, 11-10 
dropping from a library, 11-10 
identification, 11-8 
initial values in, 11-1 
listing functions in, 11-6 
listing variables in, 11-6 
loading a duplicate, 11-9 
names and passwords, 11-8 
password, 11-8 
renaming, 11-8 

saving under the name CONTINUE# 11-9 
saving, 11-8 
storage available, 4-22 
storage and retrieval, ii*7 
Writing to a file, 6-10 
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